A,B: Integer;. Write('Введите число A: ');. Readln(A);. Write('Введите число B: ');. Readln(B);. Writeln((A mod 2>0) and (B mod 2>0));. A,B: Integer;. Write('Введите число A: ');. Readln(A);. Write('Введите число B: ');. Readln(B);. Writeln((A mod

⇐ ПредыдущаяСтр 2 из 2

A, B: Integer;

begin

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

Readln(A);

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

Readln(B);

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

end.

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

var

A, B: Integer;

begin

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

Readln(A);

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

Readln(B);

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

end.

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

var

A, B: Integer;

begin

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

Readln(A);

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

Readln(B);

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

end.

Boolean11. Даны два целых числа: A, B. Проверить истинность высказывания: «Числа A и B имеют одинаковую четность».

var

A, B: Integer;

begin

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

Readln(A);

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

Readln(B);

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

end.

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

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.

Boolean14. Даны три целых числа: A, B, C. Проверить истинность высказывания: «Ровно одно из чисел A, B, C положительное». var A, B, C: Integer; begin Write('Введите число A: '); Readln(A); Write('Введите число B: '); Readln(B); Write('Введите число C: '); Readln(C); Writeln((A*B*C> 0) And ((A< 0) or (B< 0) or (C< 0))); end. Boolean 1-14 Задачи.

⇐ Предыдущая 12