Преобразовать исходную строку, заменив каждую из групп стоящих рядом двух или бо...

July 2022 1 51 Report

Преобразовать исходную строку, заменив каждую из групп стоящих рядом двух или более точек многоточием (т.е. тремя точками).

Answers & Comments

HRAshton uses crt;
var s:string;
i,j:byte;
begin
clrscr;
writeln('Введите строку, содержащую точки, как по 1, так и группами:');
readln(s);
if (length(s)>1)and(copy(s,1,2)='..') then{если в начале строки более 1 точки}
  begin
  {или строка вообще из точек}
while (s[1]='.')and(length(s)>0) do delete(s,1,1);
insert('...',s,1);
end;if(length(s)>2)and(s<>'...') then{если осталось более 2 сиволов, начнем проверять с конца}
begin i:=length(s)-2;
while i>=1 do
  if (s[i]<>'.')and(copy(s,i+1,2)='..') then
begin
  while (s[i+1]='.')and(i+1<=length(s)) do delete(s,i+1,1);
insert('...',s,i+1);
i:=i-1;
  end
else i:=i-1;
end;
write(s);
readln
end.

1 votes Thanks 1

marsmag там ошибку времени исполнения выдаёт

marsmag а там j лишняя, или нет?

Answers & Comments

1udalit iz dannoj stroki vse gruppy bukv vidaabcd2preobrazovat ishodnuyu st

sharik massoj m015 kg na niti dlinoj l04 m raskachivayut tak chto kazhdyj raz

vo skolko raz uvelichilas potencialnaya energiya pruzhinyesli eyo udlinenie uveli

dva odinakovyh elementa soedinyayut parallelno i zamykayut na soprotivlenie 4 om

kak vy ponimaete etu frazu ya ne lyublyu kogda mne vrut no ot pravdy ya tozhe usta

kak vy ponimaete smysl dannoj citaty v mire net nichego sovershenno oshibochnogo

dana stroka predlozhenie zashifrovat ee pomestiv vnachale vse simvoly raspolozhe

najti summu chisel v tekstovom dokumente pochemu pishet neizvestnyj identifikator

preobrazovat ishodnuyu stroku zameniv v nej kazhduyu tochku mnogotochiem te trem

a=1, b=2 -> a=2, b=3...

рекомендуемые вопросы

Helpful Links

Helpful Social