Составить программы для этих двух

1) var

y,x: real;

begin

writeln('введите значение x: ');

readln(x);

y: =5/(2*sqr(x)-50);

writeln('y = ',y);

end.

2) var

y,x: integer;

begin

writeln('введите значение x: ');

readln(x);

writeln('введите значение y: ');

readln(y);

if x> y then

begin

writeln('x*2 = ',x*2)

end

else

if (x

begin

writeln('x*2 = ',x*2);

writeln('y*2 = ',y*2);

end;

end.

  1 строчка говорит о том что ты создал программу под таким названием

2 строчка ты создаешь 3 переменных типа integer(числовой тип данных)

3 строчка ты создаешь массив из 10 ячеек так же типа integer

4 строка начало   программы

5 строка ты присваиваешь значение переменным которые создал во 2 строке

6 это функция вывода на экран(то что в скобках)

7 начало цикла который будет повторяться 10 раз

8 так же вывод в консоль

9 функция ввода с клавиатуры

10 проверка если итый (порядковый номер из массива) элемент массива больше s, тогда переменная s равна этому числу

11 конец цикла

12 начало другого цикла который так же повторяется 10 раз

13 начало

14 проверяешь если а итый равен s , тогда m+1

15 конец цикла

16 вывод на экран текста

17 конец программы

ответ:

1, 2, 3, 4

объяснение:

введем обозначения:

a = x > 0, b = x > 4

тогда выражение будет иметь вид (a + b) → b и нужно найти условия, когда оно ложно. вместо этого, мы будем искать, когда отрицание этого условия истинно, т.е. истинность ¬( (a + b) → b)

для начала избавимся от импликации

¬( ¬(a + b) + b)

а теперь примерим к внешнему отрицанию закон де-моргана

(a + b) · ¬b

раскрываем скобки

a · ¬b   + b · ¬b

a · ¬b + 0

a · ¬b

делаем обратную замену

( x > 0) · ¬(x > 4)

( x > 0) · (x ≤ 4)

переведем это на более понятный язык:

x > 0 и x ≤ 4, или

0 < x ≤ 4

из целых чисел сюда подойдут 1, 2, 3, 4.