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

257

476

Посмотреть ответы 2

Ответы на вопрос:

JOKER7500

Информатика

4,5(73 оценок)

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.