Напишите честное мнение о дистанционном обучении: плюсы, минусы, чего не хватало, где можно было смухлевать - id1339756920221007 от Anchoys777 07.10.2022 16:08

Question

Информатика: Напишите честное мнение о дистанционном обучении: плюсы, минусы, чего не хватало, где можно было смухлевать и т.д написать

Anchoys777 · Accepted Answer

Рекурсивный подход.(Символы тоже удаляет)
function grad(s:string):string;
var
i:byte;
detect:boolean;
begin
while i < length(s) - 2 do
begin
inc(i);
if (s[i] = s[i+1]) and (s[i] = s[i+2]) then {проверка последовательности из 3 елементов}
begin
delete(s,i,3); {если да - удаляем их}
detect:=True; {логическая переменная регистрирует изменение строки}
end;end;
if detect = True then
s:=grad(s); {если строку изменили , проверяем не появились ли там еще последовальности}
grad:=s;
end;

var
s:string;
begin
readln(s);
writeln(grad(s));
end.

Напишите честное мнение о дистанционном обучении: плюсы, минусы, чего не хватало, где можно было смухлевать и т.д написать

MOGZ ответил