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

Question

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

Answer 1

Var m, i: integer;
begin
     m := 1;
     for i := 1 to 10 do
         m := m * i;
     writeln(m);
end.

Comments

это точно правильно?

---

можете проверить на калькуляторе)

---

а не хочешь еше столько же баллов заработать?)ток еще одно задание