Регистрация
АрсенийТизяев
15.09.2021 01:34
Информатика
Есть ответ 👍

Исправить ситаксические ошибки в программе которая в тексте меняет слово 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.

179
376
Посмотреть ответы 2

Ответы на вопрос:

superschool1
superschool1
4,5(27 оценок)

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.

канна
канна
4,6(11 оценок)
86-8=78 всего играет в игры 54+62=116 игродетей 116-78=38 детей играют и в квесты и в симуляторы

Популярно: Информатика