Предмет: Информатика,
автор: Luv
Найти произведение квадратов натуральных чисел от O до N в паскале
Ответы
Автор ответа:
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
Предмет: Русский язык,
автор: Аноним
Предмет: Физика,
автор: zmei2312
Предмет: Химия,
автор: Vlados007