Ну вот. Я не успел. Вот моё решение. Спойлер 123: function rec : string; var x:longint; begin read(x); if x = 0 then rec:= '0' else rec := rec + ' '+ IntToStr(x); end; begin writeln(rec); end.
Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)
Просмотреть облако меток
Правила форума
Социальные закладки