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

Question

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

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

Answer 1

1) s будет равно 40.
for k:= 2 to 7 do - цикл будет выполнен 6 раз (2/3/4/5/6/7). Каждый раз переменная s будет уменьшаться на 10:
100-10=90 (1 цикл)
90-10=80 (2-й)
80-10=70 (3-й)
70-10=60 (4-й)
60-10=50 (5-й)
50-10=40 (6-й цикл, последний)
S=40

2) k будет равно 22.
For i:= 1 to 4 do - цикл будет выполнен 4 раза (1/2/3/4). Каждый раз переменная k будет присваивать значение 2*i+k:
2*1+2=4 (1-й цикл: 1 - это i, 2 - первоначальное значение k)
2*2+4=8 (2-й цикл: 2 - это очередная i, 4 - предыдущее значение k)
2*3+8=14 (3-й цикл)
2*4+14=22 (4-й цикл, последний)
k=22

Answer 2

1) 40
2) 22
элементарно ватсон