Программирование циклов на Паскале

Какое число нужно написать вместо многоточия, чтобы цикл выполнился ровно 4 раза?

  i:=7;
  while i<=... do begin
    writeln('Привет!');
    i:=i+1;
  end;

Сколько раз будет выполнен этот цикл?

  i:=6;
  while i<5 do begin
    writeln('Привет!');
    i:=i+1;
  end;

Какое число будет выведено на экран в результате выполнения этого цикла?

  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;

Какое число нужно написать вместо многоточия, чтобы цикл выполнился ровно 3 раза?

  i:=...;
  repeat
    writeln('Привет!');
    i:=i+1;
  until i>10;

Чему будет равно значение переменной «a» после выполнения этого цикла?

  i:=2;
  a:=12;
  while i<5 do begin
    a:=a+i;
    i:=i+1;
  end;

Какое условие нужно написать вместо многоточия, чтобы цикл выполнился ровно 6 раз? Условие записывается без пробелов.

  i:=12;
  while .... do begin
    writeln('Привет!');
    i:=i-1;
  end;

Чему будет равно значение целой переменной «a» после выполнения этого фрагмента программы?

  a:=10;
  for i:=1 to 3 do begin
    a:=a-2
  end;

Какой оператор надо написать вместо многоточия, чтобы значение целой переменной «a» после выполнения этого фрагмента программы было равно 0? команду записать без пробелов.

  a:=10;
  for i:=1 to 4 do begin
    ....
  end;

Чему будет равно значение целой переменной «a» после выполнения этого фрагмента программы?

  a:=4;
  for i:=1 to 3 do begin
    a:=a+a
  end;

Какое число будет выведено на экран после выполнения этого фрагмента программы?

  write(5);
  for i:=4 downto 2 do
    write(2*i);

Дан фрагмент программы, которая в последовательности натуральных чисел определяет сумму всех чисел кратных 6 и оканчивающихся на 8. Программа получает на вход натуральные числа, количество  введенных чисел неизвестно, последовательность чисел заканчивается 0.

Какое условие надо поставить вместо многоточия, чтобы программа работала верно?  

  readln(а);  
  sum := 0; 
  repeat    

          if ..... then sum := sum + a;
          readln(a); 
  until a=0;
 

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

  k:=5;

  s:=2;

  while k < 120 do begin

    s:=s+k;

    k:=k+2;

  end;

Что будет напечатано в результате выполнения данного фрагмента программы?

x := 356;

a := 0; b := 1;

while x > 0 do begin

  if x mod 2 > 0 then

    a := a + x mod 12

  else

    b := b * (x mod 12);

  x := x div 12

end;

writeln(a+b);

Что будет напечатано в результате выполнения данного фрагмента программы?

  x := 130;

  L := x;

  M := 65;

  if L mod 2 = 0 then  M := 52;

  while L <> M do  

         if L > M then L := L – M else  M := M – L;

  writeln(M);