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

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

Answer 2

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

Answer 3

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