Program pr_1;
var d:string; a:array[1..100] of string;
i,k,l,j,f:integer;
begin
readln(d);
l:=1; j:=0;
for i:=1 to length(d) do
if d[i]= ' ' then
begin
k:=i;
j:=j+1;
f:=k-l;
a[j]:=copy(d,l,f);
i:=k+1
end;
for i:=1 to j do
writeln(a[i]);
end.
в данной задаче необходиммо вводить в конце пробел
"[color=#000000]как решить задачу чтобы в конце не надо было вводить пробел...
я был бы вам очень благодарен!!!
