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

Стр 1 из 2Следующая ⇒

Boolean1. Дано целое число A. Проверить истинность высказывания: «Число A является положительным».

var

A: Real;

begin

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

Readln(A);

Writeln(A> 0);

end.

Boolean2. Дано целое число A. Проверить истинность высказывания: «Число A является нечетным»

var

A: Integer;

begin

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

Readln(A);

Writeln((A mod 2)> 0);

end.

Boolean3. Дано целое число A Проверить истинность высказывания: «Число A является четным»

var

A: Integer;

begin

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

Readln(A);

Writeln((A mod 2)> 0);

end.

Boolean4. Даны два целых числа: A, B. Проверить истинность высказывания: «Справедливы неравенства A> 2 и B≤ 3».

var

A, B: Integer;

begin

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

Readln(A);

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

Readln(B);

Writeln((A> 2) and (B < =3));

end.

Boolean5. Даны два целых числа: A, B. Проверить истинность высказывания: «Справедливы неравенства A≥ 0 или B< − 2».

var

A, B: Integer;

begin

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

Readln(A);

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

Readln(B);

Writeln((A> =0) and (B < =(-2)));

end.

Boolean6. Даны три целых числа: 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) and (B< C));

end.

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

var

A, B, C: Integer;

begin

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

Readln(A);

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

Readln(B);

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

Readln(C);

Writeln(((A< B) and (B< C)) or ((A> B) and (B> C)));

end.

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

var

12 Следующая ⇒