6. Определите, что будет напечатано в результате работы следующей программы. Var s, k:...

Question

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

Answer 1

K = 4 => s = 13;
k = 5 => s = 13 + 13 = 26;
k = 6 => s = 26 + 13 = 39
и т.д. Можно заметить, что в данном случае s будем равно произведению 13 и количества проходов по массиву => s = 13 * (10 - 4 + 1) = 91 => напечатано будет 91.