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

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

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

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

Образцы
входные данные
1 2 1
выходные данные
2
На Паскале

Задать свой вопрос
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
Jevelina Bikmaeva
Спасибо вам огромное, а с ещё одной задачей не поможете?
Инна Чхеидзе
Пожалуйста.
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт