Скільки разів виконається цикл, якщо початкове значення Х=7?
          Repeat X := X+1 Untіl X>10;
Позначте одну правильну відповідь.

(Кількість балів 1.00)

• А

  6 

• Б

  2 

• В

  4 

• Г

  Жодного 

Скільки разів виконається цикл, якщо початкове значення Х=11?
          Repeat X := X+1 Untіl X>10;
Позначте одну правильну відповідь.

(Кількість балів 1.00)

• А

  3 

• Б

  1 

• В

  2 

• Г

  Жодного 

Якого значення набуде змінна F після виконання циклу?
              і := 1; F := 2;
              Repeat і:=і +1; F := F*і Untіl і < 3;
Позначте одну правильну відповідь.

(Кількість балів 1.00)

• А

  3

• Б

  12

• В

  2

• Г

  4

Якими є ознаки циклу з післяумовою Repeat?
Позначте всі правильні відповіді.

(Кількість балів 1.50)

• А

  Оператори тіла циклу виконуються мінімум один раз. Умова починає перевірятися лише після першого проходження циклу

• Б

  Оператори тіла циклу виконуються доти, доки умова істинна

• В

  Якщо умова набуває значення True, керування переходить до оператора, що слідує безпосередньо за оператором Until <умова>

• Г

  Оператори тіла циклу виконуються доти, доки умова хибна

Визначте, які оператори реалізують дію:
Збільшувати значення змінної А на 2 доти, доки А<20.
Позначте всі правильні відповіді.

(Кількість балів 1.50)

• А

  Repeat A := A+2 Untіl A<20;

• Б

  Whіle A<20 do A := A+2;

• В

  If A < 20 Then A := A+2;

• Г

  Repeat A := A+2 Untіl A >= 20;

Встановіть відповідність між еквівалентними операторами 1–4 і А–Г.

(Кількість балів 2.00)

• • 1

    Repeat X := X+1 Untіl X>10;

  • 2

    While N<1000 do begin
                       N := N+1;
                       S := S+1/N end;

  • 3

    While N<1000 do begin
                        N := N+1;
                        S := S+N end;

  • 4

    Repeat X := X+1; S := S+X Untіl X>10;

• • А

    Repeat N := N+1;
    S := S+N
    Untіl N >= 1000; 

  • Б

     Whіle Х <= 10 do X := X+1;

  • В

    Whіle Х <= 10 do begin X := X+1; S := S+X end; 

  • Г

    Repeat N := N+1;
    S := S+1/N
    Untіl N >= 1000; 

	А	Б	В	Г
1
2
3
4

Встановіть відповідність між операторами (1–4) та їхніми блок-схемами (А–Г).

(Кількість балів 2.00)

• • 1

    Repeat A := A+1 Untіl A >= 5; 

  • 2

    Whіle A<5 do A := A+1; 

  • 3

    If A < 5 Then A := A+1 Else A := A–1; 

  • 4

    If A < 5 Then A := A+1; 

• • А

     

  • Б

     

  • В

     

  • Г

     

	А	Б	В	Г
1
2
3
4

Яке значення S буде виведено в текстове поле?
          var N, d, S: Integer;
          begin
              N := 345; S := 0;
              Repeat
                    d := N mod 10;
                    S := S+d;
                    N := N div 10;
              Until N=0;
              Edit2.Text := IntToStr(S);
          end; 

(Кількість балів 2.00)