Даны четыре целых числа, одно из которых отлично от трех других, равных между собой. Вывести порядковый номер этого числа.
Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад