Завдання #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; {…} Запишіть число: Умаляю треба відповідь на всіі питання