На этой странице мы решаем задачи Boolean16 - Boolean19 из задачника Абрамяна, где рассматривается вопрос определения количества цифр целого числа (две или три), количество совпадающих и наличие противоположных чисел.
Boolean16. Дано целое положительное число. Проверить истинность высказывания: «Данное число является четным двузначным».
var
A: integer;
begin
write('Введите целое положительное число: ');
readln(A);
writeln;
{ Поскольку число A четно, A+1 будет нечетным и odd(A+1)
возвратит true. Но A ещё и двузначно, поэтому должны
выполнятся ещё условия A>9 и A<100. Тогда число A будет
четным двузначным при выполнении всех трех условий: }
writeln(odd(A + 1) and (A > 9) and (A < 100));
readln
end.
**type** integer;: Представляет 32-битовое целое число со знаком.Диапазон значений: -2 147 483 648 .. 2 147 483 647**function** Odd(i: integer): boolean;: Возвращает True, если i нечетно Boolean17. Дано целое положительное число. Проверить истинность высказывания: «Данное число является нечетным трехзначным».
var
A: integer;
begin
write('Введите целое положительное число A: ');
readln(A);
writeln;
{ Поскольку число A нечетно, то odd(A) возвратит true.
Но A ещё и трехзначно, поэтому должны выполнятся ещё
условия A>99 и A<1000. Тогда число A будет нечетным
трехзначным при выполнении всех трех условий: }
writeln(odd(A) and (A > 99) and (A < 1000));
readln
end.
**type** integer;: Представляет 32-битовое целое число со знаком.Диапазон значений: -2 147 483 648 .. 2 147 483 647**function** Odd(i: integer): boolean;: Возвращает True, если i нечетно Boolean18. Проверить истинность высказывания: «Среди трех данных целых чисел есть хотя бы одна пара совпадающих».
var
A, B, C: integer;
begin
writeln('Введите три целые числа:');
readln(A, B, C);
writeln;
{ Поскольку нужно проверить совпадение хотя бы одной
пары чисел, то для проверки трех пар используем
оператор or (логическое "или"): }
writeln(' ', (A = B) or (B = C) or (C = A));
readln
end.
**type** integer;: Представляет 32-битовое целое число со знаком.Диапазон значений: -2 147 483 648 .. 2 147 483 647 Boolean19. Проверить истинность высказывания: «Среди трех данных целых чисел есть хотя бы одна пара взаимно противоположных».
var
A, B, C: integer;
begin
writeln('Введите 3 целые числа:');
readln(A, B, C);
writeln;
{ Поскольку нужно проверить существование хотя бы одной
пары взаимно противоположных чисел чисел, то используем
оператор or (логическое "или"): }
writeln(' ', (A = - B)or(B = - C)or(C = - A));
readln
end.
**type** integer;: Представляет 32-битовое целое число со знаком.Диапазон значений: -2 147 483 648 .. 2 147 483 647