Question

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

Answer 1

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

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

1=47

2=44

3=41

4=38

5=35

6=32

7=29

8=26

9=23