Yurianvinokurov
03.04.2022 06:19

1. Які імена допустимі як ідентифікатори?
1) 1Primer
2) IF
3) 9A
4) summa
2. Який компонент призначений для введення і відображення короткого текстового
рядка?
1) Button
2) Memo
3) Edit
4) Label
3. Який оператор відповідає поданій блок-схемі?

1) If A<5 Then A : = A-1 Else A : = A+1;
2) If A<5 Then A : = A+1;
3) If A<5 Then A : = A+1 Else A : = A-1;
4) If A<5 Then A : = A-1;
4. x=10. Чому дорівнює y після виконання оператора?
If x<0 Тhen y : = x Else If x <= 5 Then y : = sqr(x) Else y : = 2*x;
1) x=10, y=20;
2) x=100, y=20;
3) x=10, y=10;
4) x=10, y=100;
5. Який елемент керування використовується для візуалізації станів
увімкнено/вимкнено, коли користувачеві необхідно вибрати потрібні серед незалежних
параметрів?
1) Checkbox
2) RadioButton
3) BitBtn
4) Button

6. Який елемент керування використовується, коли користувачеві потрібно вибрати одну
з декількох наявних можливостей?
1) Checkbox
2) RadioButton
3) BitBtn
4) Button
7. Чому дорівнює значення логічного виразу x <= 10, якщо х = 10?
Выберите один из 2 вариантов ответа:
1) True
2) False
8. Скільки разів виконається цикл, якщо початкове значення Х=7?
Whіle Х <= 10 do X : = X+1;
1) 0
2) 4
3) 2
4) 6
9. Скільки разів виконається цикл, якщо початкове значення Х=7?
Repeat X : = X+1 untіl X>10;
1) 2
2) 4
3) 6
4) Жодного
10. Чому дорівнює S після виконання циклу:
S : = 0;
For і : = 5 To 7 Do
S : = S+1;
1) 4
2) 3
3) 7
4) 5
11. Яка властивість відповідає за форму автофігури?
1) Pen.Color
2) Shape
3) Width
4) Brush.Color

Оберіть декілька варіантів відповіді:
12. var A: Real; B: Integer;
В яких операторах правильно організовано виведення значень змінних до текстового
поля Edit1?
1) А : = StrToFloat(Edit1.Text)
2) Edit1.Text : = FloatToStr (В)
3) Edit1.Text : = FloatToStr(А)
4) Edit1.Text : = IntToStr(В)
13. var C: char;
В яких операторах правильно виконується присвоєння значення змінній С?
1) С : = 'ab'
2) С : = '7'
3) С : = 'a'
14. Який оператор реалізує дію:
Якщо А - від’ємне число, змінити його знак на протилежний.
1) If A < 0 Then A : = Abs(A);
2) If A < 0 Then A : = - A;
3) If A > 0 Then A : = - A;
4) If A < 0 Then A : = - A Else A : = 0;
15. В яких із наведених операторів циклу тіло циклу не виконається жодного разу?
1) Х: =5; Whіle Х <5 do X : = X+1;
2) Х : = 10; Whіle Х <= 10 do X : = X+1;
3) For A : = 10 To 0 Do S = S + A;
4) Repeat A : = A+1 Untіl A >= 5;
Встановіть відповідність:
16. Встановіть відповідність між значеннями величин і типами, до яких належить
значення
1) 'Назва' А) Integer
2) 3.5 Б) Real
3) True В) String
4) 56 Г) Boolean

17. Встановіть відповідність між піктограмами компонентів та їхніми назвами
1) Timer
2) Edit
3) Button
4) ComboBox

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

2)

3)

4)

А) Repeat A := A+1 Untіl A >= 5;
Б) Whіle A<5 do A := A+1;
В) If A < 5 Then A := A+1 Else A := A-1;
Г) If A < 5 Then A := A+1;
19. var X, Y: Integer;
Чому дорівнює значення Х після виконання послідовності присвоювань:
Х : = 10; Y : = 3*Х; Х : = Х + Y;
Запишіть відповідь.
20. Визначте значення S після виконання операторів.

X : = 0 ; S : = 0;
Whіle Х<=5 Do
begin
X : = X + 1;
S : = S + Х;
end;
Запишіть відповідь.
21. Визначте, чому дорівнює F після виконання циклу:
F : = 1; A: = 3;
For i : = 1 To 3 Do
F: = F * A;
Запишіть відповідь.
22. Встановіть порядок розташування операторів в програмі для визначення суми
двадцяти елементів послідовності чисел 2,5; 3,0; 3,5; 4,5...
__ S : = S+A; A : = A+0.5; i : = i+1;
__ S : = 0; і : = 0; A: =2,5;
__ end;
__ Whіle і < 20 do
__ begin

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
cheri228
25.05.2020 04:08

const

 AOper: array [0..3] of string = ('+', '-', '*', '/');

var

 a, b, Oper: Integer;

 r: Real;

begin

 Randomize;    // инициализация датчика случайных чисел

 a := Random (1001);

 b := Random (1001);

 Oper := Random (4);

 case Oper of

 0: r := a + b;

 1: r := a - b;

 2: r := a * b;

 3:if b <> 0 then begin

     r := a / b;

   end else begin

     WriteLn ('Произошла ошибка при делении на ноль');

     Exit;

   end

 else r := -1;

 end;

 WriteLn (a);

 WriteLn (b);

 WriteLn (Aoper [Oper]);

 if (r >= 0) and (r - Trunc (r) = 0) then begin   // если в результате получилось положительное целое число

   WriteLn ('yes');

   WriteLn (r :6 :0);

 end else

   WriteLn (' no');

 ReadLn;

end.

Объяснение:

r - Trunc (r) // это выделение дробной части числа

0,0(0 оценок)
Ответ:
Petrosyan31337
07.06.2020 02:57
Если три нуля значащие, значит число начинается с единицы. Поскольку любое число в развернутой записи есть сумма произведений, каждое из которых представляет собой произведение цифры, находящейся на n-й позиции на основание системы счисления, возведенной в степень n-1, то понятно, что чем больше по величине будут цифры в старших разрядах, тем больше будет само число.
В применении к двоичной системе это означает, что слева должны стоять все единицы, а справа - нули.
Получаем 11000(2)=1х2^4+1x2^3=16+8+=24(10) - тут символ ^ означает возведение в степень.
ответ: 24
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота