Исправить ситаксические ошибки в программе которая в тексте ...
Исправить ситаксические ошибки в программе которая в тексте меняет слово 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.
Есть ответ
17.12.2022
488
Ответ
Vars:string;d,i:integer;begins:='177777277777377777477777';d:=length(s);for i:=1 to d-4 doif copy(s,i,5)='77777' thenbegindelete(s,i,5);insert('00000',s,i);end;writeln(s);end.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022
