Решение задач. День девятый. Задачи 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.

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