Циклы
Вариант 1.

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

a := 0;
for i:=5 downto 3 do begin
  a := a + 3;
end;

2. Сколько единиц будет выведено на экран в результате работы программы:

for j := 0 to 3 do begin
  i := 2;
  while i <= 6 do begin
    i := i + 2;
    writeln ( '1' );
  end;
end;

3. Сколько единиц будет выведено на экран в результате работы программы:

for j:=0 to 3 do begin
  i := 2;
  while i >= 6 do begin
    i := i - 2;
  end;
  writeln ( '1' );
end;

4. Сколько раз выполнится этот цикл:

i := 2;
while i > 6 do begin
    i := i - 2;
end;

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

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

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

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

7. Сколько раз будет выполняться цикл For i:=6 to 10 do…:

8. Оператор цикла for предназначен для программирования циклических алгоритмов, когда переменная цикла явно выражена и изменяется от начального значения до конечного значения с:

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

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

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

i:=...;
repeat
  writeln('Привет!');
  i:=i-1;
until i<=6;

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

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

12. Требуется подсчитать сумму натуральных чисел от 5 до 125. Какое условие нужно использовать в цикле Repeat?
s:=0;
i:=5;
repeat
s:=s+i;
i:=i+1;
until …;

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

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

14. Сколько раз выполнится цикл: i:=4; while i<10 do i:=i+3:

15. Сколько раз выполнится цикл: i:=1; while i<6 do i:=i+3:

16. Чему будет равна переменная sum после выполнения фрагмента программы:
i:=10;
sum:=0;
While i>5 do begin
sum:=sum+i/5;
i:=i-5
end;