Анализ программы. Циклы

Определите, что будет напечатано в результате работы следующей программы: var s, i: integer; begin s := 13; for i := 4 to 9 do s := s + 32 div i; writeln(s); end.

Определите, что будет напечатано в результате работы следующей программы: var p, i: integer; begin p := 2; for i := 15 to 17 do p := p * 3; writeln(p); end.

Определите, что будет напечатано в результате работы следующей программы: var s, i: integer; begin s := 0; for i := 4 to 9 do s := s + 7; writeln(s); end.

Определите, что будет напечатано в результате работы следующей программы: var s, i: integer; begin s := 50; for i := 0 to 10 do s := s − 6; writeln(s); end.

Определите, что будет напечатано в результате выполнения следующей программы: var s, i: integer; begin s := 64; i := 1; while s > 0 do begin s := s - 8; i := i + 2 end; writеln(i) end.

Определите, что будет напечатано в результате выполнения следующей программы: var s, n: integer; begin s := 0; n := 75; while s + n < 150 do begin s := s + 15; n := n - 5 end; writeln(n) end.

Определите, что будет напечатано в результате выполнения следующей программы: var s, i: integer; begin s := 50; i := 3; while s > 0 do begin s := s - 9; i := i + 2 end; writeln(i) end.

Определите, что будет напечатано в результате выполнения следующей программы: var s, i: integer; begin s := 24; i := 6; while s mod i >= 2 do begin s := s + 9; i := i + 5; end; writeln(s) end.

Определите, что будет напечатано в результате выполнения следующей программы: var s, k: integer; begin s := 0; k := 1; repeat s := s + k; k := k + 2 until k<8; writeln(s) end.

Определите, что будет напечатано в результате выполнения следующей программы: var s, i :integer; begin s := 1; i := 1; repeat s: = s * 2; i: = i + 1; until i >= 6; writeln(s); end.