image

Решение задач. День девятый. Задачи Boolean4-14.

Здравствуйте, дорогие читатели! Сегодня мы с вами решаем задачи Boolean4-14.

Boolean4-14

Для того чтобы решить все задачи, мы используем материалы этого урока.

Boolean4. Даны два целых числа: A, B. Проверить истинность высказывания: «Справедливы неравенства A > 2 и B ≤ 3».

var
  A, B: integer;

begin
  write('Введите A и B: ');
  read(A,B);
  writeln('Справедливы неравенства A > 2 и B ≤ 3 - ',(A > 2) and (B <= 3));
end.

Boolean5. Даны два целых числа: A, B. Проверить истинность высказывания: «Справедливы неравенства A ≥ 0 или B < –2».

var
  A, B: integer;

begin
  write('Введите A и B: ');
  read(A,B);
  writeln('Справедливы неравенства A ≥ 0 или B < –2 - ',(A >= 0) or (B < -2));
end.

Boolean6. Даны три целых числа: A, B, C. Проверить истинность высказывания: «Справедливо двойное неравенство A < B < C».

var
  A, B, C: integer;

begin
  write('Введите A, B и C: ');
  read(A,B,C);
  writeln('Справедливо двойное неравенство A < B < C - ',(A < B) and (B < C));
end.

Boolean7°. Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число B находится между числами A и C».

var
  A, B, C: integer;

begin
  write('Введите A, B и C: ');
  read(A,B,C);
  writeln('Число B находится между числами A и C - ',((A < B) and (B < C)) or ((A > B) and (B > C)));
end.

Boolean8. Даны два целых числа: A, B. Проверить истинность высказывания: «Каждое из чисел A и B нечетное».

var
  A, B: integer;

begin
  write('Введите A, B: ');
  read(A,B);
  writeln('Каждое из чисел A и B нечетное - ', (A mod 2 <> 0) and (B mod 2 <> 0));
end.

Boolean9. Даны два целых числа: A, B. Проверить истинность высказывания: «Хотя бы одно из чисел A и B нечетное».

var
  A, B: integer;

begin
  write('Введите A, B: ');
  read(A,B);
  writeln('Хотя бы одно из чисел A и B нечетное - ', (A mod 2 <> 0) or (B mod 2 <> 0));
end.

Boolean10°. Даны два целых числа: A, B. Проверить истинность высказывания: «Ровно одно из чисел A и B нечетное».

var
  A, B: integer;

begin
  write('Введите A, B: ');
  read(A,B);
  writeln('Хотя бы одно из чисел A и B нечетное - ', (A mod 2 <> 0) xor (B mod 2 <> 0));
end.

Boolean11. Даны два целых числа: A, B. Проверить истинность высказывания: «Числа A и B имеют одинаковую четность».

var
  A, B: integer;
  C: boolean;
begin
  write('Введите A, B: ');
  read(A,B);
  C := ((A mod 2 <> 0) and (B mod 2 <> 0)) or ((A mod 2 = 0) and (B mod 2 = 0));
  writeln('Числа A и B имеют одинаковую четность - ', C);
end.

Boolean12. Даны три целых числа: A, B, C. Проверить истинность высказывания: «Каждое из чисел A, B, C положительное».

var
  A, B, C: integer;
begin
  write('Введите A, B и C: ');
  read(A,B,C);
  writeln('Каждое из чисел A, B, C положительное - ',(A > 0) and (B > 0) and (C > 0));
end.

Boolean13. Даны три целых числа: A, B, C. Проверить истинность высказывания: «Хотя бы одно из чисел A, B, C положительное».

var
  A, B, C: integer;
begin
  write('Введите A, B и C: ');
  read(A,B,C);
  writeln('Каждое из чисел A, B, C положительное - ',(A > 0) or (B > 0) or (C > 0));
end.

Boolean14. Даны три целых числа: A, B, C. Проверить истинность высказывания: «Ровно одно из чисел A, B, C положительное».

 

var
  A, B, C: integer;
  A_1, B_1, C_1: boolean;

begin
  write('Введите A, B и C: ');
  read(A, B, C);
  A_1 := (A > 0) and (B <= 0) and (C <= 0);
  B_1 := (A <= 0) and (B > 0) and (C <= 0);
  C_1 := (A <= 0) and (B <= 0) and (C > 0);
  writeln('Ровно одно из чисел A, B, C положительное - ', A_1 xor B_1 xor C_1);
end.

 

На сегодня все!  Не забывайте кликать по кнопочкам и подписываться на наш сайт.

  • Kopnu

    В Boolean5 в коде ошибка.
    Где (» writeln(‘Справедливы неравенства A ≥ 0 или B = 0) and (B < -2)); ") должно быть не AND а OR…
    Или я что-то не понимаю =(

    • alen_marzz

      Да, вы правы, опечатка.

  • Семен

    В решении задачи 14 дает true, когда все числа положительны, а по условию задачи должно быть false.

  • ky

    14 можно вообще решить одной строкой

    writeln((a>0) xor (b>0) xor (c>0));

  • smiles teach

    даны числа от 1 до 15 помогите найти количество нечетных

  • kstep

    Boolean11, а не проще просто a mod 2 = b mod 2 сделать? Вообще, слабовато.

    • alen_marzz

      Проще.

  • Speed

    Задания с четностью/нечетностью чисел лучше решать с применением функции Odd, которую мы изучали в разделе Boolean. Для закрепления материала.

  • DeuCally

    В 13 задаче ошибочка, там где writeln должно быть «Хотя бы одно из чисел A,B,C положительное».

  • Омар Шайхалиев

    8 задачу намного легче решить с помощью odd