На ввод даются числа через пробел в порядке невозрастания. Если числа одинаковы, то записать их в одну строку. Если нет, то записать на следующей. Последовательность чисел заканчивается нулем.

Question

Информатика

Мишата

4 октября, 22:47

На ввод даются числа через пробел в порядке невозрастания. Если числа одинаковы, то записать их в одну строку. Если нет, то записать на следующей. Последовательность чисел заканчивается нулем.

+2

Ответы (1)

Знаете ответ на вопрос?

Лида · Answer 1

Var a1, b2, c3:integer; beginreadln (a1, b2, c3) ; if (a1=b2) and (b2=c3) then writeln (a1+' '+b2+' '+c3) else begin write (a1) ; writeln () ; write (b2) ; writeln () ; write (c3) ; end;

end.