Составить программу вычисления произведения квадратов натуральных чисел от 1 до 10. (1^2*2^2*3^2**10^2)

Blackmamba06 Blackmamba06    3   03.06.2019 22:30    0

Ответы
Lizzik657 Lizzik657  05.07.2020 06:25
Pascal

Var
i: byte;
rez: unt64;

begin
for i:=1 to 10 do
 rez:=rez*i*i;

write(rez);
end.

Если не ошибся нигде)
ПОКАЗАТЬ ОТВЕТЫ
anser8539 anser8539  05.07.2020 06:25
Var i,a:longint;
Begin
a:=1;
for i:=1 to 10 do
a:=a*sqr(i);
writeln (a);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика