Очень нужна помощь с Паскалем!Напишите программку, которая получает три числа и

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

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

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

Задать свой вопрос
1 ответ
Var
   a,b,c,k:integer;
Begin
k:=1;
Read(a,b,c);
if a=b then k:=k+1;
if b=c then k:=k+1;
if c=a then k:=k+1;
if k=1 then k:=0
else
   if k=4 then k:=3;
Write(k)
End.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт