Скільки разів виконається цикл, якщо
початкове значення Х=7?

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

Позначте одну правильну відповідь.

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

А Жодного

Б 6

В 4

Г 2

Скільки разів виконається цикл, якщо початкове значення Х=11?

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

Позначте одну правильну відповідь.

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

А Жодного

Б 3

В 2

Г 1

Якого значення набуде змінна F після виконання циклу?

і := 1; F := 2;

Repeat і:=і +1; F := F*і Untіl і < 3;

Позначте одну правильну відповідь.

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

А 4

Б 3

В 2

Г 12

Якими є ознаки циклу з післяумовою Repeat?

Позначте всі правильні відповіді.

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

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

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

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

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

Визначте, які оператори реалізують дію:

Збільшувати значення змінної А на 2 доти, доки А<20.

Позначте всі правильні відповіді.

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

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

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

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

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

Встановіть відповідність між еквівалентними операторами 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;

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

Б Repeat N := N+1;

S := S+N

Untіl N >= 1000;

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

Г 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)