1. Записать на языке Паскаль высказывание: а) «Верно ли, что хотя бы одно из чисел a или b оканчивается на 0;
б) «Если оба числа а и b кратны 5, то найти сумму квадратов этих чисел, в противном случае найти квадратный корень от суммы этих чисел. Результат записать в переменную с»;
в) «Если значение переменной а больше 100, то увеличить значение b и c в 4 раза, результаты присвоить в переменные d и e»;

2. Запишите результат выполнения оператора:
а) a:=14; b:=17;
If (a mod 7<>1) or (b mod 7<>1) then begin a:=a+b;b:=b-a;end else b:=b+a;
Write(b,a)
б) a: = 3; b: = 8; c: = 5;
if a > b then x: = a + b
else begin a: = b + c; x: = a - 2 * b
end;
в) a: = 10; b: = 5; c: = 6;
if (a > b) and (b > c) then x:=3 * a + 2 * b + c
else x: = 5 * a - b + c;
г) a: = 3; b: = 8; c: = 5;
if a > b then x: = a + b
else begin a: = b + c; x: = a - 2 * b
end.

#include <iostream>

using namespace std;

// функция с алгоритмом двоичного поиска  

int Search_Binary (int arr[], int left, int right, int key)

{

int midd = 0;

while (1)

{

 midd = (left + right) / 2;

 if (key < arr[midd])       // если искомое меньше значения в ячейке

  right = midd - 1;      // смещаем правую границу поиска

 else if (key > arr[midd])  // если искомое больше значения в ячейке

  left = midd + 1;    // смещаем левую границу поиска

 else                       // иначе (значения равны)

  return midd;           // функция возвращает индекс ячейки

 if (left > right)          // если границы сомкнулись  

  return -1;

}

}

int main()

{

setlocale (LC_ALL, "rus");

const int SIZE = 12;

int array[SIZE] = {};

int key = 0;

int index = 0; // индекс ячейки с искомым значением

for (int i = 0; i < SIZE; i++) // заполняем и показываем массив

{

 array[i] = i + 1;

 cout << array[i] << " | ";

}

cout << "\n\nВведите любое число: ";

cin >> key;

index = Search_Binary (array, 0, SIZE, key);

if (index >= 0)  

 cout << "Указанное число находится в ячейке с индексом: " << index << "\n\n";

else

 cout << "В массиве нет такого числа!\n\n";

return 0;

}