не правильно работает программа Program Tab;

Uses Crt;

Const y=1;

Var X, A, F: Real;

Begin

ClrScr;

X:=0.0;

Repeat

Begin

A:=0;

While A>4 do

F:=X*X*cos(sqrt(A)*y)+ln(y);

Writeln('A=', A:5:2, ' ': 3,'y=',y,' ':3,'X=',X: 5: 2,' ':3, 'F=', F: 5: 3);

A:=A+1 {изменение переменной A}

End;

X:=X+1.0;

Until X<=3.0;

Readln;

End.

1) 2

2) 1

3) 3

4) 2

Объяснение:

1) Солнце - не спутник Земли, так что второе выражение ложно. Дизъюнкция (логическое ИЛИ) истинна, если хотя бы один из операндов истинен. Второй ложен, тогда первый обязательно истинен.

2) НЕ ( x ≥ 7 ) И (x < 11) должно быть истинно. Это конъюнкция, она истинна, если оба операнда истинны. Значит, верно, что НЕ( x ≥ 7 ), т.е. x < 7 и одновременно x < 11.

3) НЕ("что-то") истинно, значит, "что-то" ложно. (x > 12) ИЛИ (x ≤ -5) ложно, тогда оба операнда ложны, x ≤ 12 и x > -5.

4) Оба операнда должны быть истинными, второй истинен (6 - 3 = 3 > 2), первый тоже должен быть истинен.

В первой четверти (x > 0, y > 0) заштрихована четверть окружности с началось в центре координат и радиусом 6. Уравнение этой окружности , тогда точка попадает в заштрихованную область, если . Сюда же можно добавить и отрезок от 0 до 6 по оси абсцисс.

В четвертой четверти (x > 0, y < 0) заштрихован треугольник. Граница проходит через точки (0, -6) и (6, 0), уравнение - линейная функция y = x - 6. Сюда будут попадать точки, для которых y > x - 6.

Собираем условия вместе и можно писать программу.

Код (PascalABC.NET):

begin

 var (x, y) := ReadReal2;

 if (x > 0) and (y >= 0) and (x * x + y * y < 36) then

   write('true')

 else if (x > 0) and (y < 0) and (y > x - 6) then

   write('true')

 else

   write('false')

end.

Код (Python 3):

x, y = map(float, input().split())

if x > 0 and y >= 0 and x * x + y * y < 36:

   print('true')

elif x > 0 and y < 0 and y > x - 6:

   print('true')

else :

   print('false')

Пример ввода:

3 5

Пример вывода:

true