Исправить ситаксические ошибки в программе которая в тексте меняет слово 77777 на слово 00000 Var s: string; d,i:integer; begin s:='177777277777377777477777; d:=length(s); for i:=0 to d - 4 begin if copy(s,i,5)=00000 then begi...
Исправить ситаксические ошибки в программе которая в тексте меняет слово 77777 на слово 00000 Var s: string; d,i:integer; begin s:='177777277777377777477777; d:=length(s); for i:=0 to d - 4 begin if copy(s,i,5)=00000 then begin delete(s,i,5); end end; writeln(s) end.
Гость
Ответ(ы) на вопрос:
ГостьVar
s:string;
d,i:integer;
begin
s:='177777277777377777477777';
d:=length(s);
for i:=1 to d-4 do
if copy(s,i,5)='77777' then
begin
delete(s,i,5);
insert('00000',s,i);
end;
writeln(s);
end.
Не нашли ответ?
Похожие вопросы