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

Pascal ABC

Question

Информатика

Антонин

19 августа, 04:41

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

Pascal ABC

+5

Ответы (1)

Знаете ответ?

Стефания · 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.

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

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

Pascal ABC