Исправить ситаксические ошибки в программе которая в тексте меняет слово 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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
