Нарисовать блок схему. вот . var s: string; begin s: ='min'; while pos('min',s) > 0 do begin insert('max',s,pos('min',s)); delete(s,pos('min',s),3); end; writeln(s); end.

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку