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

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

Задать свой вопрос
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
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт