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

anna18341 anna18341    2   18.05.2019 02:40    1

Ответы
mariaks16 mariaks16  30.09.2020 19:44

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика