Лови
var
m,a:integer;
b,col,mor,kl,la:real;
begin
write('Сколько кг капусты = ');
readln(m);
a:=m div 10;
b:=m mod 10;
mor:=350*a;
kl:=200*a;
col:=225*a;
la:=4*a;
b:=b*0.1;
mor:=mor+350*b;
kl:=kl+200*b;
col:=col+225*b;
la:=la+4*b;
writeln('На ',m,'кг капусты надо : Морковки - ',mor,'г. Клюквы - ',kl,'г. Соли - ',col,'г. Лаврового листа - ',la,'г');
<span>end.
Тут программа только с двузначными числами работает то есть 15кг 30кг и так далее. </span>
Программа находит сумма квадратов двух чисел, чтоб уьроенного меняешь только строку c= и пишешь c=a*3+b*3
22:22
01:10
02:20
03:30
04:40
05:50
11:11
21:12
12:21
00:00
23:32
13:31
14:41
15:51
10:01
20:02
Переводим на русский:
"Нечетное число меньше 75"
Т.к. высказывание должно быть ложно, берем в ответ всё, что либо четно, либо >= 75, либо и то и другое.
Ответ: 46, 80, 75
____
Либо же берем все числа такие, что высказывание становится истинным (то бишь 53 и 69), и затем берем от этого множества чисел инверсию (т.е. всё, кроме них самих)