Информатика, опубликовано 08.03.2019 15:20
Дана строка, состоящая из слов, разделенных пробелами (одним или несколькими). вывести строку, содержащую эти же слова (разделенные одним пробелом), но расположенные в обратном порядке. help
Ответ оставил: Гость
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.
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01