Який оператор відповідає поданій блок-схемі?
Позначте одну правильну відповідь. 

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

• А

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

• Б

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

• В

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

• Г

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

Який оператор відповідає поданій блок-схемі?
Позначте одну правильну відповідь. 

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

• А

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

• Б

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

• В

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

• Г

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

Який оператор реалізує дію:
Якщо ціле число А парне, поділити його на 2, в протилежному випадку помножити на 10.

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

• A

  If A mod 2 = 0 Then A := A div 2;

• B

  If A mod 2 = 0 Then A := A div 2 Else A:=10*A;

• C

  If A mod 2 = 0 Then A := A / 2 Else A:=10*A;

• D

  If A div 2 = 0 Then A:=A mod 2 Else A:=10*A;

Який оператор реалізує дію:
Змінній К: Boolean присвоїти значення True, якщо числа А, В, С упорядковані за зростанням, і значення False в протилежному випадку?
Позначте всі правильні відповіді.

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

• А

  K := (A < B) and (B < C);

• Б

  If (A < B) and (B < C) Then K := True Else K := False;

• В

  If (A < B< C) Then K := True Else K := False;

• Г

  K := (A < B) or (B < C);

Який оператор реалізує дію:
Якщо А — від’ємне число, змінити його знак на протилежний.
Позначте всі правильні відповіді.

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

• А

  If A > 0 Then A := –A;

• Б

  If A < 0 Then A := Abs(A);

• В

  If A < 0 Then A := –A Else A := 0;

• Г

  If A < 0 Then A := –A;

Встановіть порядок виконання операторів програми для визначення більшого з трьох чисел а, b, с.

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

• А

  If c > max Then max := c;

• Б

  a := StrToInt(Edit1.Text); b := StrToInt(Edit2.Text); c := StrToInt(Edit3.Text);

• В

  Edit4.Text := IntToStr(max);

• Г

  If a > b Then Мax := a Else Мax := b;

	А	Б	В	Г
1
2
3
4

Встановіть відповідність між операторами (1–4) і діями, які вони реалізують (А–Г).

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

• • 1

    If A mod 2 = 0 Then A := A div 2 Else A := 10*A; 

  • 2

    If A mod 2 = 0 Then A := A div 2;

  • 3

    If A > B Then A := A–B Else B := B–A; 

  • 4

    Змінній Мах присвоїти значення більшого з чисел А і В 

• • А

    Якщо ціле число А парне, поділити його на 2, в протилежному випадку помножити на 10

  • Б

    Змінній Мах присвоїти значення більшого з чисел А і В 

  • В

    Якщо ціле число А парне, поділити його на 2 

  • Г

    Від більшого з чисел А і В відняти менше 

	А	Б	В	Г
1
2
3
4

Визначте, якого значення набуває змінна В після виконання фрагмента програми.
     var A, B, C, Max: Integer;
     begin
     A := 13; B := 12;
     If A > B*B Then B := A–B;
     If B > A–1 Then begin B := B–A;
                             A:= A–B end
                     Else begin A := A–B;
                             B := B–A end;
{…}

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