Анализ истинности высказывания с числами (Если можно, напишите пояснения!)
1. Напишите наименьшее число x, для которого ложно высказывание:
(x < 42) ИЛИ (x не делится на 19)
2. Напишите наибольшее число x, для которого ложно высказывание:
(x > 95) ИЛИ НЕ (x кратно 14)
3. Напишите наибольшее число x, для которого истинно высказывание:
(x < 62) И (x кратно 19)
4. Напишите наименьшее число x, для которого истинно высказывание:
НЕ (x ≤ 53) И НЕ (x не делится на 53)
5. Напишите наименьшее число x, для которого ложно высказывание:
НЕ (x ≥ 35) ИЛИ (x не делится на 16)
6. Напишите наибольшее число x, для которого истинно высказывание:
НЕ (x > 43) И НЕ (сумма цифр числа x меньше 9)
7. Напишите наибольшее число x, для которого истинно высказывание:
НЕ (x > 47) И НЕ (сумма цифр числа x больше 6)
8. Напишите наибольшее число x, для которого истинно высказывание:
НЕ (x > 38) И НЕ (сумма цифр числа x не равна 4)
9. Напишите наибольшее число x, для которого истинно высказывание:
НЕ (x > 38) И НЕ (сумма цифр числа x равна 11)
10. Напишите наибольшее число x, для которого истинно высказывание:
НЕ (x > 55) И НЕ (в числе x есть одинаковые цифры)
var c,a,b,i,j,l:integer;
begin
cls;
write('Введите через пробел отрезок');
read(a,b);
for i:=a to b+1 do
begin
j:=2;
l:=round(sqrt(i));
while (i mod j <> 0) and (j <= l) do
begin
inc(j);
end;
if (j > l) then
begin
write(c,' ');
c:=i;
end;
end;
end.
Объяснение: