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

Question

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


Var m, n : integer;

begin

m := 50;

for n := 1 to 7 do

m := m – 7;

write(m);

end.

Answer 1

7 раз будет повторяться выражение m-7 то есть
50-7=43
43-7=36
36-7=29
29-7=22
22-7=15
15-7=8
8-7=1
На экран выведет 1