Question

Заданы 3 числа. ИМзвестно , что дваиз них равны между собой , а третье отлично от них.Составьте программу для нахождения числа , отличного от других

Answer 1

var a,b,c:integer;

begin

clrscr;

readln(a,b,c);

         if a = b then writeln(c);

         if b = c then writeln(a);

         if a = c then writeln(b);

readkey;

end.