Каково наибольшее целое число x, при котором истинно высказывание: (x*(x + 1)> 71) → (x · x < 38)? а)7 б)6 в)2 г)16

Импликация ложна только в случае 1 →0, поэтому не подходит только х=16так как (16*(17)> 71) - истина, а (16*16< 38) - ложносреди остальных ответов большее - 7ответ: a)7

Program area; var a: integer; // сторона а b: integer; // сторона b s: integer; // площадь прямоугольника p: integer; // периметр прямоугольника  begin write("введите а: "); // выводим сообщение  readln(a);   // получаем значение а write("введите b: ");   // выводим сообщение  readln(b);   // получаем значение   b s: =a*b; // вычисляем площадь p: =a*2+b*2;   // вычисляем периметр write("площадь равна: ", s);   // выводим сообщение  write("периметр равен: ", p);   // выводим сообщение  end.

Алгоритм: 1. получить значение с и а. 2. значение с, необходимо умножить на два. 3. прибавить к значению а результат получившийся во 2 шаге.  4. вывести результат.  программа: program  example; var c: integer;   // переменная с a: integer; // переменная а x: integer; // переменная х begin write("введите переменную с: ");   // выводим сообщение readln(c);   // получаем значение write("введите переменную a: ");   // выводим сообщение readln(a);   // получаем значение x: =c*2;   x: =a+x; write("x= ", x);   // выводим сообщение end.