Составить программу вычисления произведения квадратов натуральных чисел от 1 до 10. (1^2*2^2*3^2*...*10^2)
Составить программу вычисления произведения квадратов натуральных чисел от 1 до 10. (1^2*2^2*3^2*...*10^2)
Гость
Ответ(ы) на вопрос:
ГостьPascal
Var
i: byte;
rez: unt64;
begin
for i:=1 to 10 do
rez:=rez*i*i;
write(rez);
end.
Если не ошибся нигде)
ГостьVar i,a:longint;
Begin
a:=1;
for i:=1 to 10 do
a:=a*sqr(i);
writeln (a);
end.
Не нашли ответ?
Похожие вопросы