Предмет: Информатика, автор: Luv

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

Ответы

Автор ответа: garfild214
0

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.

Похожие вопросы
Предмет: Информатика, автор: farhatdvumat
Предмет: Русский язык, автор: sanzarbekarsen