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

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

Решение:

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

program Boolean8;

var

A,B: Integer;

begin

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

Readln(A);

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

Readln(B);

Writeln(odd(A) and odd(B));

end.

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

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

Вадим

14.01.2016 в 15:36

При A-полож.
В-отриц.
Решение не верное.

Ответить
Anton

14.01.2016 в 19:50

Поправил
Было:

Writeln((A mod 2>0) and (B mod 2>0));

1

Writeln((A mod 2>0) and (B mod 2>0));

Стало:

Writeln(odd(A) and odd(B));

1

Writeln(odd(A) and odd(B));

Ответить

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

➤