Анализ истинности высказывания с числами (Если можно, напишите пояснения!)

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 есть одинаковые цифры)

valeriarodriger valeriarodriger    2   26.04.2020 12:49    73

Ответы
Dudoleyka Dudoleyka  26.04.2020 13:30

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.

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика