Запись алгоритмов на языках программирования 11 класс

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

var s, n: integer;

begin

    s := 0;

    n := 1;

    while s < 51 do

    begin

        s := s + 11;

        n := n * 2

    end;

    writeln(n)

end.

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

a := 3425;
b := (a mod 1000) * 10;
a := a div 1000 + b;

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

S:=0; i:=7;

while i > 1 do begin

S := S + i div 2;

i := i - 1;

end;

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

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

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

var k,  y: integer;
begin
  y := 0;
  for k := 2 to 6 do
     begin
         y := y + k;
         y :=y * 2;
     end;
end.