Ответы
Ответ дал:
0
var i,n,p:integer;
BEGIn
write('N: ');
Readln(n);
p:=1;
for i:=1 to n do
begin
p:=p*sqr(i);
end;
Writeln(p);
Readln();
END.
BEGIn
write('N: ');
Readln(n);
p:=1;
for i:=1 to n do
begin
p:=p*sqr(i);
end;
Writeln(p);
Readln();
END.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад