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

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

1

2

3

4

5

6

7

8

9

10

11

12

program Boolean18;

var

A,B,C: Integer;

begin

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

Readln(A);

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

Readln(B);

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

Readln(C);

Writeln((A=B) or (B=C) or (C=A));

end.

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

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

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

Евгений

17.08.2016 в 14:01

read(a,b,c); writeln( ((a=b)and(a<>c)) xor((b=a)and(b<>c)) xor((c=b)and(c<>a)) );

1
2
3
4
5

read(a,b,c);
writeln(
       ((a=b)and(a<>c))
  xor((b=a)and(b<>c))
  xor((c=b)and(c<>a)) );

Ответить
- Anton
  
  17.08.2016 в 14:07
  
  А вот здесь не правда. В задании сказано, хотя бы одна пара, а не точно одна пара…
  так что при a=b, b=c и a=c то истина, так как одна пара есть.
  У вас при таком условии будет не правильный ответ.
  
  Ответить
  - Евгений
    
    17.08.2016 в 14:40
    
    точно, ошибка-с
    
    Ответить

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

➤