Помогите, пожалуйста, нарисовать блок схему. Вот задача. var s:string; begin s:='min';...

Question

Помогите, пожалуйста, нарисовать блок схему.
Вот задача.
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.

Answer 1

------------------------

---

Comments

Огромное спасибо. Слушай, можешь ещё помочь с некоторыми блок схемами? Можешь скайп дать ?

---

Ты задай вопрос