Ветвление. Циклы

Какое значение будет выведено в результате выполнения следующего фрагмента программы: i:=1; write('9'); while i<3 do begin write(i); i:=i+1; end;

Какое число нужно написать вместо многоточия, чтобы цикл выполнился ровно 2 раза? i:=...; while i>=6 do begin writeln('Привет!'); i:=i-1; end;

Какое значение будет выведено в результате выполнения следующего фрагмента программы: a := 10; b := 20; x := b; if a>b then b := x+a; a := x-a; writeln (a);

Определите значение переменной s после выполнения фрагмента программы: s:=0; k:=0; while s < 1024 do begin s:=s+10; k:=k+1; end;

Какое число нужно написать вместо многоточия, чтобы цикл выполнился ровно 4 раза? i:=3; while i<=... do begin writeln('Привет!'); i:=i+1; end;

Определите значение переменной s после выполнения фрагмента программы: s:=0; for k:= -3 to 5 do begin s:=s+k; end;

Какое значение будет выведено в результате выполнения следующего фрагмента программы: a := 20; b := 40; if a mod b = 10*(a div b) then x := 10 else x := 20; if x mod b = 10*(x div b) then x := 10 else x := 20; writeln (x);

Какое значение будет выведено в результате выполнения следующего фрагмента программы: s := 100; for k := 1 to 9 do s := s - 5; write (s);

Какое значение будет выведено в результате выполнения следующего фрагмента программы: a := 10; b := 20; c := 30; x := b; if a>b then x := a; if c>x then x := c; writeln (x);

Какое значение будет выведено в результате выполнения следующего фрагмента программы: k := 4; For i := 1 to 3 do k := i + 2*k; Writeln(k);