Решаем задачи Абрамян на Паскале. Boolean13

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

Решение:

program Boolean13;
var
 A,B,C: Integer;
begin
  Write('Введите число A: ');
  Readln(A);
  Write('Введите число B: ');
  Readln(B);
  Write('Введите число C: ');
  Readln(C);
  Writeln(((A >0) or (B >0) or (C>0)));
end.

program Boolean13;

var

A,B,C: Integer;

begin

Write('Введите число A: ');

Readln(A);

Write('Введите число B: ');

Readln(B);

Write('Введите число C: ');

Readln(C);

Writeln(((A >0) or (B >0) or (C>0)));

end.

Другие задачи из раздела Boolean можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Boolean13

Комментарии:

Добавить комментарий Отменить ответ