Задание:
Даны три целых числа, одно из которых отлично от двух других равных между собой. Определить порядковый номер числа, отличного отостальных
Решение:
var a,b,c: integer; Begin read (a,b,c); if b=с then writeln (1); if a=с then writeln (2); if b=a then writeln (3); End.
Знаете другой ответ?