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

Question

Информатика

Федяня

15 августа, 04:17

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

+5

Ответы (1)

Знаете ответ?

Дарина · 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.