Найти произведение квадратов натуральных чисел от O до N в паскале
Program pr;uses crt;Var i,p,n:integer;BeginWriteln('введите n');readln(n);p:=1;for i:=1 to n do p:=p*(i*i);Writeln('p=',p);readln;end.
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.