ВВЕРХ
ВНИЗ
  • Home
  • Boolean
  • Boolean 16 - 19

Четные двузначные, нечетные трехзначные числа

На этой странице мы решаем задачи Boolean16 - Boolean19 из задачника Абрамяна, где рассматривается вопрос определения количества цифр целого числа (две или три), количество совпадающих и наличие противоположных чисел.

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

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
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.

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

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
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.

Boolean18. Проверить истинность высказывания: «Среди трех данных целых чисел есть хотя бы одна пара совпадающих».

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
var
  A, B, C: integer;

begin
  writeln('Введите три целые числа:');
  readln(A, B, C);
  writeln;
  { Поскольку нужно проверить совпадение хотя бы одной
  пары чисел, то для проверки трех пар используем 
  оператор or (логическое "или"): }
  writeln(' ', (A = B) or (B = C) or (C = A));
  readln
end.

Boolean19. Проверить истинность высказывания: «Среди трех данных целых чисел есть хотя бы одна пара взаимно противоположных».

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
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.



Яндекс.Метрика