Var a:string; b,c,v,s:byte; begin b:=0; c:=0; writeln('Введите строчку'); readln (a); repeat inc (b); if (a[b]=' ') or (b=length(a)) then begin inc (c);
if (c=1) then v:=b;
if c=2 then begin if (b=length(a)) then delete(a,v,b-v+1) else delete(a,v,b-v); b:=b-(b-v); c:=0; end; end else continue; until b>length(a) ; writeln(a);
readln;
end. Это вот программа по подсчёту пробелов. Эту давно писал, а сейчас занят, поэтому даю только идею
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
