Даны три целых числа. Определите, сколько среди них совпадающих. Программа должна вывести...

Question

Даны три целых числа. Определите, сколько среди них совпадающих. Программа должна вывести одно из чисел:
■ 3 – если все совпадают;
■ 2 – если два совпадает;
■ 0 – если все числа различны.

Answer 1

Var a,b,c:integer;
begin
readln(a,b,c);
if (a=b)and(b=c) then writeln(3)
 else if (a=b)or(b=c)or(a=c) then writeln(2)
  else writeln(0);
end.

Пример:
5 7 5
2