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

Question

Информатика

Костяня

23 ноября, 02:57

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

+2

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