Форум программистов [Powered by Invision Power Board]

Код

program soversh;
uses crt;
var
   sim,n,i,sum,s,c,k,minus:integer;
   z,z1,res,ste,s4,min,max:integer;
   n1:char;
   ar:array[1..255] of integer;
label l1,l2,l3,l4;
begin
     k:=0; s:=0; s4:=1;
     writeln('vvedite 4isla');
l2:  z1:=1; ste:=1; res:=0;
     n1:=readkey; i:=1;  sum:=0;
     if n1=#45 then minus:=1;
     k:=k+1;
     val(n1,n,c);
     ar[k]:=n;
     if (n1=#32) or(n1=#13) then
        begin
            z1:=k;
            for z:=1 to k do
            begin
            if z1=1 then goto l3;
            res:=res+ste*ar[z1-1];
            ste:=ste*10;
            z1:=z1-1;  end;
            l3:
        k:=0;
        if minus=1 then begin res:=res*(-1); minus:=0; end;
        writeln(res);
        end;
 sim:=res;
 if sim<>0 then begin
 if s4=1 then begin min:=sim; max:=sim; end;
 s4:=s4+1;
 if (min>sim) and (sim<>0) then min:=sim;
 if (max<sim) and (sim<>0) then max:=sim;   end;



 l1: if i<sim then begin
     if ((sim mod i)=0) then sum:=sum+i;
     i:=i+1; goto l1; end;[/color]


   if sum=sim then s:=s-sim  else s:=s+sim;
     if n1=#27 then writeln('Srednee=',s,' Min=',min,' Max=',max) else goto l2;
repeat until keypressed;
end.