вот простая и легкая программа, так как уже запостить нельзя, то выкладываю в комментах, держи на здоровье: var s: string; i: integer;begin readln(s); while (Length(s)>0) and (s[Length(s)]=' ') do Delete(s,Length(s),1); while Pos(' ',s)>0 do Delete(s,Pos(' ',s),1); for i:=1 to length(s) do if s[i]=' ' then s[i]:='.'; writeln(s)end.
она была ошибочной, но стоит добавить один пробел в коде - она работает )
вот и весь прикол, а программа была ощибочна, хотя согласен, программа сама по себе простая.
нет,все равно не так
я пишу на fpc, только оказалось, что после копирования решения, html съел один пробел в кавычках, поэтому там нужно два пробела
ты на делфи пишешь, может?:3
http://znanija.com/task/3931165 помогите плииз еще с этой
abc
не может быть, а что у вас за паскаль такой?
пишет строку просто без пробелов
Var s,s1,s2:string; l,l1:char; i,x,x1:integer; begin readln(s); for I:= 2 to length(s)-1 do begin l:=s[i];l1:=s[i+1];x:=ord(x);x1:=ord(l1); if (l=' ') and (x1<>32) then s1:=s1+'.' else if x<>32 then s1:=s1+l; end; s1:=copy(s,1,1)+s1+copy(s,length(s),1); while ((s1[1]=' ') or (s1[1]='.')) do s1:=copy(s1,2,length(s)-1); writeln(s1); end.
а,нет,сори. Все работает. Спасибо большое
нет, пишет в одно слово
все, один пробел забыл поставить
пишет: ожидание вывода
не работает
все,поправил, учитывает пробелы перед первым словом
там не работало, я когда в знания скопировал, забыл пробел.