1. какое из имён удовлетворяет логическому условию: (последняя буква гласная ⇒первая буква согласная) ∧ вторая буква согласная? 1) ирина 2) артем 3) степан 4) мария 2. сколько различных решений имеет уравнение: j /\¬k /\ l /\¬m /\ (n v¬n)=0 где j, k, l, m, n- логические переменные? в ответе не нужно перечислять все различные наборы значений j, k, l, m и n, при которых выполнено данное равенство. в качестве ответа вам нужно указать только количество таких наборов. 3. каково наибольшее целое положительное число x, при котором истинно высказывание: ((x-1)x*x)?

Ядумаю. 1-3 2-2 3-6 вполне вероятно. удачи))

1- 3 2 - 2 3 - 6 (1 всегда истинна, а вторая только если x*x < 40)

Объяснение: Клавиша Shift. Одновременное нажатие этой клавиши и символьной клавиши позволяет временно переключиться в режим ввода прописных (заглавных) букв, либо ввести другой символ, расположенный на той же клавише. На клавиатуре присутствуют две такие клавиши – левая и правая, и в некоторых программах их действие отличается. Например чтобы ввести прописную букву «И» нужно нажать на клавишу Shift и не отпуская ее, нажать клавишу И.

Клавиша <Ctrl> используется для расширения возможностей клавиатуры. Часто используется в комбинации с другими клавишами для активации какого- либо действия в программе.

1)

var num1, num2, i, res: integer;

begin

  Write('Введите числа >>> ');   {Нет -Ln, ввод чисел будет происходить на первой строке}

  ReadLn(num1, num2);   {Вводить числа через пробел, подряд}

  res:=0;   {Обнуляем счетчик, иначе результат будет неожиданный}

  for i:=1 to num2 do res:=res + num1;   {Прибавляем num1 к счетчику res num2 раз}

  Writeln(res); {Выводим}

  ReadLn

end.

2)

var a,b,P:integer;

   kv:String;

begin

writeln ('Введите геометрическую фигуру kv или pr');

Readln(kv);

if (kv = 'kv') then begin

write ('Введите сторону квадрата');

readln (a);

P:=a*4;

writeln('P= ',P);

end

else begin

writeln('ВВедите a и b');

readln(a,b);

P:=(a+b)*2;

writeln('P=',P);

end;

end.

3)

var

 a, b, c, P: real;

begin

 writeln('Введите два катета прямоугольного треугольника:');

 readln(a, b);

 P := a + b; { <-- сумма катетов }

 c := sqrt(sqr(a) + sqr(b)); { <-- гипотенуза с }

 P := P + c; { <-- периметр P }

 writeln('Результат:');

 writeln(' c = ', c:0:2);

 writeln(' P = ', P:0:2);

 readln

end.