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

Question

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

Answer 1

s = 50 

k=1 s=50-3=47

k=2 s=44

k=3 s=41

k=4 s=38

k=5 s=35

k=6 s=32

k=7 s=29

k=9 s=26

Ответ: 26

Answer 2

 ответ получается 23

ответ 100%, проверял в турбо паскаль

1=47

2=44

3=41

4=38

5=35

6=32

7=29

8=26

9=23