Составьте программу вычисляющую произведение квадратов всех чисел от 1 до n

Question

Информатика

Протасий

19 марта, 23:38

Составьте программу вычисляющую произведение квадратов всех чисел от 1 до n

+4

Ответы (2)

Знаете ответ на вопрос?

Патрикия · Answer 1

Var n, s, i:integer;

begin;

s:=1;

readln (n) ;

for i:=1 to n do

s:=s*sqr (i) ;

writeln (s) ;

end.

Ефимия · Answer 2

Var i, n, Result_math:integer;

begin

Write ('Введите число n от 1 до 31: ') ;

repeat

Readln (n) ;

until not ((n31)) ;

Result_math:=1;

for i:=1 to n do

Result_math:=Result_math*i;

Writeln ('Произведение от 1 до ', n,' равно ', Result_math) ;

end.