Question

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

Answer 1

Pascal

Var
i: byte;
rez: unt64;

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

write(rez);
end.

Если не ошибся нигде)

Answer 2

Извини, писал в Pascal ABC. Скорее всего, в той среде, где ты пишешь, нету поддержки типа int64. Вместо int64 попробуй поставить uint64 или longint.

Answer 3

Проверял Pascal ABC. Не пропускает. Надо писать uint64 . А в ответе выдает 0

Answer 4

Ах, да. После begin rez:=1;

Answer 5

Теперь правильно будет))

Answer 6

А у моего ответа всё без ошибок)

Answer 7

Var i,a:longint;
Begin
a:=1;
for i:=1 to 10 do
a:=a*sqr(i);
writeln (a);
end.