Напишите наибольшее число x, для которого истинно высказывание:
(x < 55) И НЕ (сумма цифр числа x не равна 10)
Напишите наибольшее число x, для которого истинно высказывание:
НЕ (x > 19) И НЕ (x чётное)
Напишите наибольшее число x, для которого истинно высказывание:
НЕ (x > 38) И НЕ (сумма цифр числа x не равна 4)
Напишите наибольшее число x, для которого истинно высказывание:
НЕ (x > 47) И НЕ (сумма цифр числа x больше 6)

1)

program m; uses crt; var i,a,b,c,min: integer; beginclrscr; readln(a,b,c);

if a< min then min: =a; if b< min then min: =b; if c< min then min: =c; writeln('              ',min); readkey; end.

2)

program m; uses crt; var i,a,b,c,min,d: integer; beginclrscr; readln(a); min: =a; for i: =1 to 2 do                       

                                                                beginreadln(a); if a< min then min: =a;                                                             end; writeln(min);

readkey;

end.

3)

program m; uses crt; var i,a,b,c,min,d: integer; beginclrscr; readln(a,b,c); if a< b then b: =a; if c< a then b: =c; writeln(b); readkey; end.

2000*2000=625 кб возможно но я неуверена

50*70*2 = 7000 байт вес одной страницы

2.8мб /1024 /1024 = 2`936`012,8 байт

2`936`012,8 байт /7000 байт = 419,4304 страниц

решаем относительно  a: a=(-6*x2-c)/x4=-6*x2/x4-c/x4.