Информатика, опубликовано 2018-08-22 23:53:44 by Гость
Даны четыре целых числа, одно из которых отлично от трех других, равных между собой. Вывести порядковый номер этого числа.
Ответ оставил Гость
Borland Pascal 7.0
uses Crt;
var
a,b,c,d:integer;
begin
ClrScr;
Read(a,b,c,d);
if ab then
if b=c then Writeln(1) else Writeln(2)
else
if b=c then Writeln(4) else Writeln(3);
ReadKey
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.