Чому дорівнює А після виконання оператора, якщо початкове значення А = 8?
Позначте одну правильну відповідь.
     Case А mod 10 of
        0..3 : A := A*2;
        3..5 : A := A+10;
        6..9 : A := A*10;
        end;

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

• А

  80 

• Б

  8 

• В

  18 

• Г

  16 

Чому дорівнює А після виконання оператора, якщо початкове значення А = 22?
Позначте одну правильну відповідь.
    Case А mod 10 of
        0..3 : A := A*2;
        3..5 : A := A+10;
        6..9 : A := A*10;
        end;        

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

• А

  22 

• Б

  220 

• В

  32 

• Г

  44 

Чому дорівнює А після виконання оператора, якщо початкове значення А = 13?
Позначте одну правильну відповідь.
     Case А mod 10 of
         0..2 : A := A*2;
         3..5 : A := A+10;
         6..9 : A := A*10;
         end;

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

• А

  13

• Б

  130

• В

  23

• Г

  26

В яких операторах допущені помилки?
Позначте всі правильні відповіді.

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

• А

  If a>5 Then a := 0; Else a := 10;

• Б

  Case Х mod 2;
           0 : ShowMessage ('Парне');
           1 : ShowMessage ('Непарне');
           end;

• В

  If a>5 Then a := True;

• Г

  If a mod 2 =0 Then a := a div 2 Else a := a*2;

Визначте, який оператор реалізує дію:
Вивести у поле Edit1 кількість цифр в цілому числі А, що належить діапазону від 1 до 999.
Позначте всі правильні відповіді.

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

• А

  If A<10 Then Edit1.Text := IntToStr(A) Else
                                               If A<100 Then Edit1.Text := IntToStr(A div 10)
                                                                           Else Edit1.Text := IntToStr(A div 100);

• Б

  Case А of
               0..9 : Edit1.Text := '1';
               10..99 : Edit1.Text := '2';
               100..999 : Edit1.Text := '3';
               end;

• В

  Edit1.Text := IntToStr(A div 100);

• Г

  If A<10 Then Edit1.Text := '1' Else If A<100 Then Edit1.Text := '2'
                                                                                    Else Edit1.Text := '3';

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

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

• • 1

    If A = 0 Then B := C Else B := D; 

  • 2

    If A<B Then H := X Else H := Y;

  • 3

    If A<B Then A := B Else B := A; 

  • 4

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

• • А

    If A >= B Then H := Y Else H := X;

  • Б

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

  • В

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

  • Г

    If A< >0 Then B := D Else B := C;

	А	Б	В	Г
1
2
3
4

Встановіть відповідність між графіками функцій y = f(x) (1–3) і операторами для обчислення значень y = f(x) (А–В).

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

• • 1
  • 2
  • 3
• • А

    If x<0 Then y := –x Else y := Sqr(x);

  • Б

    If x<0 Then y := 1 Else
            If x<Pi Then y := cos(x) Else y := –1;

  • В

    If x<0 Then y := –x Else
               If x<1 Then y := x
                           Else If x<3 Then y := 1
                                            Else y:= 4–x;

	А	Б	В
1
2
3

Чому дорівнює А після виконання оператора, якщо початкове значення А = 9?
    Case А of
         0..3 : A := A*2;
         3..5 : A := A+10;
         6..9 : A := A*10;
         Else А := 100;
         end;

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

• А=