Дано предложение, в котором слова отделяются друг от друга одним или несколькими пробелами или запятой и пробелом. В конце точка. Напишите программу, которая выводит все нечетные слова в строку через пробел.
Вот наработка:
var ost: array[1..4] of string;
str, s1: string;
i: integer;
begin
for i:= 1 to 4 do
begin
ost[i]:= ' '; ost[i]:= ', '; ost[i]:= '.'; ost[i]:= ' ';
end;
write('Введите строку '); readln(str);
write('Ответ: ' );
for i:=1 to length(str) do
begin
if str[i] in ost then
begin
s1:= copy(str, 1, i);
delete(str, 1, i);
writeln(s1, ' ');
end;
end;
writeln
end.
Попробуйте запихнуть печатание предложений в цикл, сделать этот цикл внутренним, в конце внешнего цикла, те после написания предложения, печатать нужные вам символы, либо привяжите написание нечетных слов к условном оператору так, чтобы при нечетном значении флага блок условного оператора печатал нужные символы.