Плз помогите , решительно задачу как нибуть по проще . на языке pascal
Приложения:
Ответы на вопрос
Ответил Issenpilon
0
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.
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.
Ответил igor9997799
0
begin readstring().ToWords.Reverse.Print end.
Ответил Аноним
0
begin ReadString().ToWords.Reverse.Print end.
Ответил Аноним
0
А иначе Вы занесете в s результат вызова Print. Он будет, мягко говоря, неожиданным.
Новые вопросы