Даны четыре целых числа, одно из которых отлично от трех других, равных между собой. Вывести порядковый номер этого числа.
Borland Pascal 7.0
uses Crt;
var
a,b,c,d:integer;
begin
ClrScr;
Read(a,b,c,d);
if a<>b then
if b=c then Writeln(1) else Writeln(2)
else
if b=c then Writeln(4) else Writeln(3);
ReadKey
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
