Поменять местами первое и последнее слово - Turbo Pascal
Формулировка задачи:
Помогите написать программу.
"Поменяйте местами первое и последнее слово"
(ввод строк организуйте в программе. Строка должна состоять из нескольких слов и символов, разделителем служит пробел)
Код к задаче: «Поменять местами первое и последнее слово - Turbo Pascal»
var s,w1,w2:string; i:byte; begin w1:=''; w2:=''; readln(s); i:=1; while s[i]<>' ' do begin w1:=w1+s[i]; inc(i); end; delete(s,1,length(w1)); i:=length(s); while s[i]<>' ' do begin w2:=s[i]+w2; dec(i); end; delete(s,i+1,length(w2)); writeln(w2+s+w1); end.
11 голосов, оценка 4.182 из 5
СОХРАНИТЬ ССЫЛКУ