zara001002 » 10 ноя 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=' ' then
begin
K:=I;
end;
for I := k+1 to length(s) do
if s<>' ' then
N:=I;
for I := n+1 to length(s) do
while s<>' ' do
begin
M:=S;
end;
insert(M, S, n+1);
writeln (s);
Readln;
readln;
end.
НЕ могу сделать....помогите пожалуйста
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.