Определить s: 1) Var s, k: integer; Begin s : = 0; for k : = 14 to 18 do s : = s+7; writeln (s) ; End. 2) Var s, k: integer; Begin s:=0; for k:=1 to 11 do s:=s+12; write (s) ; End. 3) var s, k:integer; begin s: = 100; for k: = 0 to 10 do s: = s - 5; writeln (s) ; end.

1) 35

У нас написано, что s:=0

От k = 14 до 18 прибавляем каждый раз + 7

s 7 14 21 28 35

k 14 15 16 17 18

2) 132

Тут такая же схема s:=0

От k=1 до 11 прибавляем к s + 12

s 12 24 36 48 60 72 84 96 108 120 132

k 1 2 3 4 5 6 7 8 9 10 11

3) 45

Тут s=100

От k=0 до 10 мы отнимаем от s - 5

s 95 90 85 80 75 70 65 60 55 50 45

k 1 2 3 4 5 6 7 8 9 10