Даны три числа a, b, c. Определить, имеется ли среди них хотя бы одна пара равных.

Question

Даны три числа a, b, c. Определить, имеется ли среди них хотя бы одна пара равных.

Answer 1

Ответ:

Объяснение:

var a,b,c : integer;

begin

readln(a,b,c);

if (a=b) or (a=c) or (b=c) then

writeln('есть')

else

writeln('нету');

end.