ПОМОГИТЕ С ПРОГРАММОЙ. Язык #паскаль.
Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Вывести строку, содержащую эти же слова, разделенные одним символом "."(точка). В конце строки точку не ставить.
Ответы на вопрос
Ответил andrfk
0
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.
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.
Ответил lnm0608
0
пишет: ожидание вывода
Ответил lnm0608
0
нет, пишет в одно слово
Ответил lnm0608
0
а,нет,сори. Все работает. Спасибо большое
Ответил andrfk
0
там не работало, я когда в знания скопировал, забыл пробел.
Новые вопросы
Математика,
2 года назад
Психология,
2 года назад
Математика,
10 лет назад
Математика,
10 лет назад
Алгебра,
10 лет назад