Вывести число, отличное от трех других

@Morfius73 · Регистрация: 26.03.2010

Author24 — интернет-сервис помощи студентам

Даны 4-е числа а,b,c,d.Известно,что одно отлично от других, равных между собой.Вывести это число на экран.Например:даны числа а=5,b=6,c=5,d=5.Требуется вывести 6.

@yanyk1n · 28.04.2010, 22:43

Pascal

uses crt;
var a,b,c,d:integer;
 
begin
 clrscr;
 write('-> ');
 readln(a,b,c,d);
 if (a=b) and (b=c) then write(d) else
 if (a=c) and (c=d) then write(b) else
 if (a=b) and (b=d) then write(c) else write(a);
 readln;
end.

@Morfius73 0 / 0 / 0 Регистрация: 26.03.2010 Сообщений: 14
		1
	Вывести число, отличное от трех других 28.04.2010, 22:39. Показов 3091. Ответов 1 Метки нет (Все метки) Даны 4-е числа а,b,c,d.Известно,что одно отлично от других, равных между собой.Вывести это число на экран.Например:даны числа а=5,b=6,c=5,d=5.Требуется вывести 6. 0

	28.04.2010, 22:43

Опции темы

Вывести число, отличное от трех других

Решение