Определите, что будет напечатано в результате работы следующей программы.
Var s,k: integer;
Begin
s:=1;
for k:=1 to 5 do s:=s*k;
write (s);
End
Var s,k: integer;
Begin
s:=1;
for k:=1 to 5 do s:=s*k;
write (s);
End
More Questions From This User See All
Answers & Comments
Ответ:
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