Ввести с клавиатуры 4 целых числа при этом 3 из них одинаковые , а 1 отличается ,вывести...

Question

Ввести с клавиатуры 4 целых числа при этом 3 из них одинаковые , а 1 отличается ,вывести на экран отличающегося числа
Pascal ABC

Answer 1

Var a,b,c,d:integer;
Begin
Write('Введите числа: ');
Readln(a);
Readln(b);
Readln(c);
Readln(d);
If b=c then If c=d then Writeln(a);
If a=c then If c=d then Writeln(b);
If a=b then If b=d then Writeln(c);
If a=b then If b=c then Writeln(d);
End.

Comments

Не знаю

---

А что ты еще знаешь?

---

Я отличник но больше всего люблю химию, физику, матему, биологию, историю и инфу.

---

ООООО по физике завтра у нас КР =)

---

Математику я тоже знаю , биологию ну так себе =)

---

а у нас в предпоследний урок четверти

---

))

---

Понятно го в лс

---

?.

---

отметь пж мой ответ как лучший))