Объясните пожалуйста как выполнить задание.. 8 класс

Question

Объясните пожалуйста как выполнить задание.. 8 класс

---

Answer 1

Var
  a,b,c,k:integer;
begin
  Writeln('Введите три числа:'); Read(a,b,c);
  if a=b then k:=1 else k:=0;
  if (a=c) or (b=c) then k:=k+1;
  case k of
  0:Writeln('Нет одинаковых чисел');
  1:Writeln('Два числа одинаковые');
  2:Writeln('Все числа одинаковые')
  end
end.

Comments

Пояснение: k - счетчик одинаковых чисел.

---

А можешь пожалуйста подробнее расписать ход решения?

---

А что расписывать? Сравниваем a и b. Если равны, то k=1 (одно совпадение), если нет - k=0 (не совпали). Затем проверяем c. Если с совпадает с a или b, количество совпадений k увеличиваем на 1. А потом выводим текст в зависимости от величины k.

---

Хорошо, спасибо

---

Пожалуйста. Попробуйте все же предметом заниматься, а то дальше будет трудно.