Всё проверено и работает на 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);
end;
end.
Всё проверено и работает на 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.