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

Pascal ABC

Question

Информатика

Вениаминка

21 октября, 19:34

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

Pascal ABC

+2

Ответы (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