Дана строковая величина вывести на экран второе слово.Информатика Turbo Pascal

1

Ответы и объяснения

2012-10-12T14:43:03+04:00

 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;