Ответы
Ответ дал:
0
Например так:
k:=false;
i:=pos(' ',s);
repeat
inc(i);
if (s[i]=' ') then k:=true;
until k;
writeln(i);
k:=false;
i:=pos(' ',s);
repeat
inc(i);
if (s[i]=' ') then k:=true;
until k;
writeln(i);
Вас заинтересует
2 года назад
2 года назад
8 лет назад
10 лет назад
10 лет назад