PDA

Просмотр полной версии : строка



zara001002
10.11.2012, 17:48
НЕ могу сделать....помогите пожалуйста





program Lab6;

{$APPTYPE CONSOLE}

{$R *.res}
{ Дана строка, состоящая из слов. Между словами один или несколько пробелов.
Пробелы есть в начале и в конце. Сформировать новую строку из слов,
отличающихся от первого слова, преобразовав каждый из них по
следующему правилу: перенести последнюю букву в начало слова. }
uses
System.SysUtils;
var
M,S: String; { Данная строка }
K,N,I: Integer;
begin
Writeln('Vvedite stroky',S);
M:='';
for I := 1 to Length(S) do
if s[i]=' ' then
begin
K:=I;
end;
for I := k+1 to length(s) do
if s[I]<>' ' then
N:=I;
for I := n+1 to length(s) do
while s[I]<>' ' do
begin
M:=S[I];
end;
insert(M, S, n+1);

writeln (s);
Readln;
readln;
end.

dr.Jekill
11.11.2012, 07:38
Используйте форматирование и тег code при публикации кода.