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

Question

Информатика

Творимир

7 сентября, 09:52

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

+5

Ответы (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.