Question

ПОМОГИТЕ С ПРОГРАММОЙ. Язык #паскаль. Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Вывести строку, содержащую эти же слова, разделенные одним символом "."(точка). В конце строки точку не ставить.

Answer 1

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.