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

1

Ответы и объяснения

2012-03-22T21:33:28+04:00

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.