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

Question

Информатика

Pegamand

7 год назад

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

ОТВЕТЫ

Демьянович

Aug 15, 2019

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.

24