Напишите программу, которая получает три числа и выводит количество одинаковых чисел в...

Question

Напишите программу, которая получает три числа и выводит количество одинаковых чисел в этой цепочке.

Входные данные
Входная строка содержит три целых числа, разделённых пробелами.

Выходные данные
Программа должна вывести количество одинаковых чисел из переданного ей набора или число 0, если все числа различные.

Примеры
входные данные
1 2 1
выходные данные
2
На Паскале

Answer 1

Var
  a,b,c,k:integer;
begin
  k:=1;
  Read(a,b,c);
  if a=b then Inc(k);
  if a=c then Inc(k);
  if (b=c) and (k=1) then k:=2;
  Writeln(k)
end.

Answer 2

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

Пример:
a, b, c:
1 2 1
2

Comments

Спасибо вам огромное, а с ещё одной задачей не поможете?

---

Пожалуйста.