Здесь должна быть также таблица, у нас в похожем была... ок
Ответ:
10
Объяснение:
Сложные высказывания, содержащие общее отрицание, полезно вначале преобразовывать, используя правило де-Моргана.
НЕ( (x ≥ 12) ИЛИ (x ПРОСТОЕ) )
НЕ(x ≥ 12) И НЕ(x ПРОСТОЕ)
Теперь "НЕ" имеют простые высказывания, выполним их инверсию (отрицание).
(x < 12) И (x НЕ ПРОСТОЕ)
Итак, нужно найти наибольшее число, для которого верно (истинно) полученное высказывание. Поскольку число меньше 12, будем рассматривать ряд чисел 11, 10, 9, ... и выберем первое встретившееся число, не являющееся простым. 11 - простое, а вот 10 - нет, оно имеет делители 2 и т.д. Поэтому ответ - 10.
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
var y:double:=1;
var e:=1e-5;
var y1:double;
while true do begin
y1:=y*(1.5-sqr(y));
Writeln('y1=',y1);
if abs(y1-y)<=e then break
else y:=y1;
Writeln('y=',y)
end;
Writeln('Результат: ',y1,', контрольное значение ',1/sqrt(2))
end.
<u><em>Результат:</em></u>
y1=0.5
y=0.5
y1=0.625
y=0.625
y1=0.693359375
y=0.693359375
y1=0.706708468496799
y=0.706708468496799
y1=0.707106444695907
y=0.707106444695907
y1=0.707106781186307
Результат: 0.707106781186307, контрольное значение 0.707106781186547
Var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x*x+y*y<=6*6)and(x>=2)
then writeln('Да')
else writeln('Нет')
end.
Пример:
x = 3
y = 2
Да
Program pr;
uses crt;
Var a, b, c, y:real;
Begin
Writeln('Введите a, b, c');
readln(a, b, c);
y:=exp(3*ln(b))+sqrt(c)-sqrt(a);
Writeln('y=', y);
readln;
end.