Условный оператор If, Сравнить числа Опции

[-kosiak-]

Ёще одна маленькая задачка помогите пож-та Известно, что из четырёх чисел a, b, c, d одно отлично от трех других, равных между собой. Найти сумму данного числа с любым из трех оставшихся.

[.......]

Код

programs lox;
uses crt;
var a,b,c,d,s:integer;
begin
clrscr;
writeln('Введите 4 числа,3 одинаковых и одно отличное от них');{ТУПОСТЬ КАКАЯ-ТО}
readln('a=',a);
readln('b=',b);
readln('c=',c);
readln('d=',d);
if (a<>b) and (b=c) and (d=c)
  then s:=a+b;
if (c<>a) and (a=b) and (a=d)
then s:=c+a;
if (b<>a) and (a=c) and (d=a)
then s:=b+d;
if (d<>a) and (a=c) and (c=b)
then s:=d+a;
writeln(s);
readkey;
end.

Сообщение отредактировано: klem4 - 16.05.2006 19:15