Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Вывести строку, содержащую эти же слова (разделенные одним пробелом), но расположенные в обратном порядке.
Help me!!!!
var
s : integer;
t, t1,t2: string;
b1: boolean;
begin
b1 := false;
writeln(введите строку);
readln(t);
t2 := ;
repeat
p1 := pos( ,t);
if p1>0 then
begin
t2 := copy(t,1,p1-1);
if length(t2)>0) then t1 := t2 + + t1;
delete(t,1,p1);
end
else if (length(t)>=1) then //обработка кнца строки
begin
t2 := t;
t1 := t2 + + t1;
b1 := true;
end
else b1 := true; // еще одна проверка, если пследний символ строки - пробел
until (b1 = true);
writeln(Ответ ,t1)
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
