Задание под б помогите

Question

Задание под б помогите

---

Answer 1

Var t,k:integer;
begin
t:=1;
for k:=2 to 5 do t:=t*k;
writeln(t);
end.

Результат:
120

Таблица (правильная):
k   t
    1
2  1*2=2
3  2*3=6
4  6*4=24
5  24*5=120

Comments

А там разве не 720 в троссировочной таблице,потому что по условию к<=5

---

120