Question

Помогите пожалуйста определить имеется ли среди чисел a b c хотя бы одна пара равных чисел

Answer 1

uses crt;

var

a, b, c : real;

begin

Write('Введите три числа: ');

Readln(a, b, c);

if (a = b) or (b = c) or (a = c) then Writeln('YES') else Writeln('No');

end.