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

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

Решение:

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

program Boolean12;

var

A,B,C: Integer;

begin

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

Readln(A);

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

Readln(B);

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

Readln(C);

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

end.

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

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

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

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