Задание:
Заданы 3 числа. ИМзвестно, что дваиз них равны между собой, а третье отлично от них. Составьте программу для нахождения числа, отличного отдругих
Решение:
var a,b,c: integer; beginclrscr; readln (a,b,c); if a=b then writeln (c); if b=c then writeln (a); if a=c then writeln (b); readkey; end.
Знаете другой ответ?