Ответы
Ответ дал:
0
var a:string;
for i:=1 to length(a) do
g:=i;
if a[i]=' ' then begin
for g to length(a)
writeln(a[g]);
end;
Похожие вопросы
7 лет назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад