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

Question

Информатика

Маргаритка

6 мая, 02:25

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

+3

Ответы (2)

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

Даруня · Answer 1

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.

Киряша · Answer 2

Var n, s, i:integer;

begin;

s:=1;

readln (n) ;

for i:=1 to n do

s:=s*sqr (i) ;

writeln (s) ;

end.