Тест 7 Запись алгоритмов на языке Паскаль

Определите значение целочисленных переменных a и b после выполнения фрагмента программы:

a := 2468;

b := (a mod 1000)*10;

a := a div 1000 + b;

Определите значение переменной c после выполнения следующего фрагмента программы, в котором a, b и с — переменные вещественного (действительного) типа:

a := 120;

b := 100;

a := a + b / 2;

if b < a / 2

  then c := b + a

  else c := b + a / 2;

Определите значение переменной P после выполнения следующего фрагмента программы:

P:=1;

i:=3;

while i <= 9 do

  begin

    P := P * (i div 3);

    i := i + 1;

  end.

Определите значение переменной y, которое будет получено в результате выполнения следующей программы:

var n, y: integer;

begin

  y := 0;

  for n := 6 downto 3 do

    begin

      y := y + 1;

      y :=y * 2;

    end

end.

Определите, что будет напечатано в результате работы следующего фрагмента программы:

var k, s: integer;

begin

 s:=0;

 k:=1;

  while  s < 66 do

   begin

     k:=k+3;

     s:=s+k;

   end;

  write(s);

end.