Программа должна удалять каждое четное слово и записывать наоборот каждое нечетное.
Например:
Исходный текст:велик и могуч русский язык
Выходной текст:килев чугом кызя
Вот, что написал я. Программа работает только в том случае, если строка line_out чему то равна, если она изначально пустая, то туда ничего не записывается. Как с этим справиться?
Код HTML:
program stroki_chet_nechet;
uses CRT;
var i,d,j,k:integer;
wd1,wd2:integer {wd1-начало слова, wd2-конец слова}
line_in,line_out:string;
begin
ClrScr;
writeln('Введите текст:');
readln(line_in);
d:=0;
k:=0;
wd1:=1;
i:=1;
while i<=length(line_in) do
begin
if line_in[i]=' ' then
begin
inc(k);
if k mod 2=0 then
wd1:=i+1;
if k mod 2<>0then
begin
wd2:=i;
inc(d);
for j:=wd2 downto wd1 do
begin
line_out[d]:=line_in[j];
inc(d);
writeln(line_out);
end;
end;
end;
inc(i);
end;
writeln(line_out);
readln
end.