11_7. Информатика 2023. Запись алгоритмов на языке программирования Паскаль

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

a := 268;
b := (a mod 100) * 10;
a := a div 100 + b * 10;

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

a := 100;
b := 120;
b := a + b / 2;
if b < a / 2
  then c := b + a
  else c := b + a / 2;

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

P := 1; i := 4;
while i <= 9 do
  begin
    P := P * (i div 4);
    i := i + 1;
  end;

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

var n,  y: integer;
begin
  y := 0;
  for n := 6 downto 2 do
     begin
         y := y + 1;
         y :=y * 2;
     end;
end.

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

var k, s: integer;
begin
  s:=0;
  k:=1;
  while s < 30 do
      begin
          k:=k+3;
          s:=s+k;
      end;
  write(s);
end.