ПОМОГИТЕ ПОЖАЛУЙСТА!
Дам 15 балов
var p,n: integer;
begin
p:=1;
for n:=7 downto 3 do
p:=p*n;
writeln (p)
end
Дам 15 балов
var p,n: integer;
begin
p:=1;
for n:=7 downto 3 do
p:=p*n;
writeln (p)
end
More Questions From This User See All
Answers & Comments
Ответ:
2520
Объяснение:
А как это получилось?