1.Чему будет равно значение переменной s после выполнения фрагмента программы s := 1; x := 2; while x < 12 do begin x := x + 2; s := s + 1; end; 2.Сколько раз будет выполнен цикл? s := 1; x := 2; while x < 12 do begin x := x + 2; s := s + 1; end; 3.Определите, чему будет равно значение переменной x после выполнения такой программы: x : = 1; while (x div 10 < 3) and (x < 40) do x := x + 1; 4.Определите значение переменной после выполнения следующего фрагмента программы: i := 3; while i < 203 do i := i + 4;

1)s = 2

2)14

3)program zad;

var x: integer;

begin

x:=1;

while (x div 10 < 5) and (x < 49) do x := x + 1;

writeln(x);

end.