Задача по информатике. Нужно написать программу(язык Pascal) Ввести с клавиатуры строку символов. Напечатать каждое слово в отдельной строке

olgapustovarova1 olgapustovarova1    2   29.03.2021 21:27    0

Ответы
juliamarvel1 juliamarvel1  28.04.2021 22:29

Всё проверено и работает на free Pascal

Объяснение:

var

 s, st : string;

 i : integer;

begin

 readln(s);

 writeln('');

 st := '';

 for i := 1 to length(s) do begin

   st := st + s[i];

   if (s[i] = ' ') then begin

     writeln(st);

     st := '';

   end;

 end;

 writeln(st);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика