составьте программу вводящую предложения, состоящие из слов, разделенных произвольным количеством пробелов. предложения вводятся в одну строку. программа должна переписать введенную строку, оставив полько по одному пробелу между словами
Приложения:
Ответы
Ответ дал:
0
PROGRAM Probel;
var s:string; n,i:integer;
begin
writeln ('введите текст с пробелами ');
readln(s); repeat inc(i);
n:=length(s);
if (s[i]=' ') and ((s[i+1]=' ')) then
begin
delete (s,i,1);dec(i);
end;
until i=n;
writeln ('удалены лишние пробелы ');
writeln(s);
end.
Похожие вопросы
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад
10 лет назад