Плз помогите , решительно задачу как нибуть по проще . на языке pascal
Плз помогите , решительно задачу как нибуть по проще . на языке pascal
Гость
Ответ(ы) на вопрос:
Гостьvar
s,s1,s2:String;
begin
readln(s);
s:=s+' ';
while s<>'' do
Begin
s2:=copy(s,1,pos(' ',s));
insert(s2,s1,1);
delete(s,1,pos(' ',s));
End;
writeln(s1);
end.
Гостьbegin readstring().ToWords.Reverse.Print end.
Не нашли ответ?
Похожие вопросы