Завдання #1
Запитання:
Який оператор відповідає поданій блок-схемі?
Тести оператор розгалуження
Виберіть один з 4 варіантів відповіді:
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;
Завдання #2
Запитання:
Який оператор відповідає поданій блок-схемі?
Тести оператор розгалуження 2
Виберіть один з 4 варіантів відповіді:
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;
Завдання #3
Запитання:
Який оператор реалізує дію:
Змінній К: Boolean присвоїти значення True, якщо числа А, В, С упорядковані за зростанням, і значення False в протилежному випадку?
Виберіть декілька з 4 варіантів відповіді:
1) K := (A < B) And (B < C);
2) K := (A < B) Or (B < C);
3) If (A < B) And (B < C) Then K := True Else K := False;
4) If (A < B< C) Then K := True Else K := False;
Завдання #4
Запитання:
Який оператор реалізує дію:
Якщо А – від’ємне число, змінити його знак на протилежний.
Виберіть декілька з 4 варіантів відповіді:
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; Завдання #5 Запитання: Встановіть порядок виконання операторів програми для визначення більшого з трьох чисел а, b, с. Вкажіть послідовність всіх 4 варіантів відповіді: __ a := StrToInt(Edit1.Text); b := StrToInt(Edit2.Text); c := StrToInt(Edit3.Text); __ If a > b Then Мax := a Else Мax := b;
__ If c > max Then max := c;
__ Edit4.Text := IntToStr(max);
Завдання #6
Запитання:
Встановіть відповідність між операторами і діями, які вони реалізують
Вкажіть відповідність для всіх 4 варіантів відповіді:
1) Від більшого з чисел А і В відняти менше.
2) Змінній Мах присвоїти значення більшого з чисел А і В.
3) Якщо ціле число А парне, поділити його на 2.
4) Якщо ціле число А парне, поділити його на 2, в протилежному випадку помножити на 10.
__ If A mod 2 = 0 Then A := A div 2 Else A := 10*A;
__ If A mod 2 = 0 Then A := A div 2;
__ If A > B Then A := A-B Else B := B-A;
__ If A > B Then Мах := A Else Мах:= B;
Завдання #7
Запитання:
Визначте, якого значення набуває змінна В після виконання фрагмента програми.
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;
{…}
Запишіть число:
Умаляю треба відповідь на всіі питання
my_list = [(lambda x:(x*296+2410)%4096)(i) for i in range(2000)]
# начальное значение для временного минимума
min1_value = min2_value = 10000
min1_number = min2_number = 0
while my_list:
x = my_list.pop()
if x < min1_value:
min2_value = min1_value
min2_number = min1_number
min1_value = x
min1_number = 1
elif x == min1_value:
min1_number += 1
elif x < min2_value:
min2_value = x
min2_number = 1
elif x == min2_value:
min2_number += 1
print(min2_number)