Паскаль - Сформулируйте условие задачи по приведенной программе:
k:= 0;
repeat
x:=pos(‘а’,s);
if p <> 0 then begin
k := k + 1;
Delete ( S, 1, x+1)
end;
until p = 0;

4iterok211    2   29.04.2020 14:20    0