If19. Даны четыре целых числа, одно из которых отлично от трех других, равных между собой. Определить порядковый номер числа, отличного от остальных.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
program if19; var A, B, C, D: Real; begin Write('Введите первое число: '); Readln (A); Write('Введите второе число: '); Readln (B); Write('Введите третье число: '); Readln (C); Write('Введите четвёртое число: '); Readln (D); if (B=C) and (C=D) then Writeln('1'); if (A=C) and (C=D) then Writeln('2'); if (A=B) and (B=D) then Writeln('3'); if (A=B) and (B=C) then Writeln('4'); end. |
Другие задачи из раздела If можно посмотреть здесь.
Сперва написал код, как у вас, но при проверке, когда ввел 1,1,1,1 выдало сразу 4 результата. Пришлось переписать вот так:
Почему бы и нет..
Данная ситуация когда все числа одинаковы не оговорена в задаче у вас в решении вообще ничего не выводится, у меня выводится 4 числа… а если нет разницы… зачем писать больше? 🙂