Исправить ситаксические ошибки в программе которая в тексте меняет слово 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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
