Задача по информатике. Нужно написать программу(язык Pascal)
Ввести с клавиатуры строку символов. Напечатать каждое слово в отдельной строке
Ответы
Ответ дал:
0
Ответ:
Всё проверено и работает на 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.
Вас заинтересует
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад