Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Даны три целых числа,одно из которых отлично от двух других,равных между собой. определить порядковый номер числа,отличного от остальных.

Ответ оставил Гость

//PascalABC.NET
var
a,b,c:integer;
begin
write(Введите три целых числа через пробел: );
readln(a,b,c);
if b=c then writeln(Порядковый номер числа отличающегося от других: 1);
if a=c then writeln(Порядковый номер числа отличающегося от других: 2);
if a=b then writeln(Порядковый номер числа отличающегося от других: 3);
end.