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

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.

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

Comments

Немножко ошибся. 1) ошибка синтаксиса в строке "rez: unt64;"

---

2) не задано первоначальное значение переменной rez

---

поэтому ответ будет неверным

---

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

---

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

---

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

---

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

---

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

Answer 2

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