8 класс. Глава 3
3. Циклы в языке Pascal

1. Какого оператора цикла не существует в языке Паскаль?

2. Какой оператор соответствует данной блок-схеме?

3. Какой оператор соответствует данной блок-схеме?

4. Какой оператор соответствует данной блок-схеме?

5. Сколько раз будет выполнено тело цикла в следующем фрагменте программы?

a:=1;
b:=2;
while a+b < 8 do
begin
  a:=a+1;
  b:=b+2;
end;

6. Сколько раз будет выполнено тело цикла в следующем фрагменте программы?

a:=2;
b:=3;
while a+b < 5 do
begin
  a:=a+1;
  b:=b+2;
end;

7. Сколько раз будет выполнено тело цикла в следующем фрагменте программы?

a:=1;
b:=2;
while a+b > 2 do
begin
  a:=a+1;
  b:=b+2;
end;

8. Сколько раз будет выполнено тело цикла в следующем фрагменте программы?

a:=0;
b:=2;
repeat
  a:=a+1;
  b:=b*2;
until b > 8;

9. Сколько раз будет выполнено тело цикла в следующем фрагменте программы?

a:=0;
b:=3;
repeat
  a:=a+1;
  b:=b*2;
until b > 5;

10. Сколько раз будет выполнено тело цикла в следующем фрагменте программы?

for i:=10 to 10 do s:=s+1;

11. Сколько раз будет выполнено тело цикла в следующем фрагменте программы?

for i:=-1 to 1 do s:=s+1;

12. Какой из приведенных фрагментов программы находит произведение чисел 1х2х3х4х5?

а) p:=0; i:=1;
while i<=5 do i:=i+1; p:=p*i;

б) p:=1; i:=1;
while i<6 do i:=i+1; p:=p*i;

в) p:=1; i:=1;
while i<6 do begin i:=i+1; p:=p*i end;

г) p:=1; i:=1;
while i>5 do begin i:=i+1; p:=p*i end;

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

a:=2;
b:=0;
while a<7 do
begin
  a:=a+1;
  b:=b+a;
end;

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

a:=1;
for b:=1 to 5 do a:=a*b;

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

a:=23;
s:=0;
while a>0 do
begin
  s:=s + a mod 10;
  a:=a div 10;
end;