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

Question

Информатика

Авдоким

28 июня, 03:42

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

+1

Ответы (1)

Знаете ответ?

Вероня · Answer 1

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.