Условия задачи
Дано число. Удалить минимальную цифру
program pract7_2;
const nm=100;
type tmasm=array[1..nm] of longint;
var i,col,k,n:byte; ch,p:longint; z,kol:tmasm;m:real;
procedure razb(ch:longint;var k:byte;var z:tmasm);
begin
k:=0;
while ch<>0 do begin
inc(k);
z[k]:=ch mod 10;
ch:=ch div 10;end;
end;
function min(n:byte;kol:tmasm):real;
var i:byte;mn,m:real;
begin
mn:=kol[1];
for i:=1 to n do
if kol[i]<mn then mn:=kol[i];
if kol[i]=mn then min:=mn;
m:=min(n,kol);
end;
begin
writeln;
writeln('vvedite chiclo');
read(ch);
razb(ch,col,z);
k:=0;
z[i]:=z[n-i+1];
for i:=1 to col do
if z[i]<>m then begin inc(k);z[k]:=z[i];end;
p:=z[k];
case z[i] of
0..9:p:=p*10+z[i];
10..99:p:=p*100+z[i];
end;
writeln('preobrazovanoe chiclo:');
writeln(p);
end.