Вводится предложение, требуется вывести слова на отдельных строках.

Функция insert вставляет подстроку в строку, delete удаляет указанное кол-во символов с указанной позиции.

символ конца строки #10

символ перехода на новую строку #13

program zadacha10;

procedure stroka(s : string);

var

i : integer;

begin

i := 1;

while i <= length(s) do

begin

if s[i] = ' ' then

begin

insert(#10 + #13, s, i+1);

delete(s, i, 1);

end;

inc(i);

end;

writeln(s);

end;

var

s : string;

begin

writeln('‚ўҐ¤ЁвҐ бва®Єг.');

readln(s);

writeln;

stroka(s);

readln;

end.

( Скачать решение.)