Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program p;
vara,b,c,i,j,n : integer;
beginwriteln('введите три числа'); readln(a,b,c);
if a> b then if a> c then writeln(a,c,b) else writeln(c,a,b) else if c> b then writeln(a,b,c) else writeln(b,c,a);
readln; end.
на каком япе? вот пример решения на паскале abc.
program test;
var s: string;
begin
read(s);
write(s);
end.
Популярные вопросы