Question

Определите, что будет напечатано в результате работы следующей программы.
Var s,k: integer;
Begin
s:=1;
for k:=1 to 5 do s:=s*k;
write (s);
End

Answer 1

Ответ:

120

Объяснение:

s = 1

k от 1 до 5

s = s * k

1)  s = s * k = 1 * 1 = 1

2) s = s * k = 1 * 2 = 2

3) s = s * k = 2 * 3 = 6

4) s = s * k = 6 * 4 = 24

5) s = s * k = 24 * 5 = 120