Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

Найти произведение квадратов натуральных чисел от O до N в паскале

Ответ оставил Гость

Program pr;
uses crt;
Var i,p,n:integer;

Begin
Writeln(введите n);
readln(n);
p:=1;
for i:=1 to n do p:=p*(i*i);
Writeln(p=,p);
readln;
end.