Решаем задачи Абрамян на Паскале. 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

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

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