Перевести из восьмеричной системы в десятичную систему: 447351,464457,764050

1)

uses crt, graphabc; var a,c: real; n,i,r,g,b: integer; begincircle(100,100,80); read(n); a: =0; c: =360; r: =5; g: =5; b: =5; for i: =1 to n do beginpie(100,100,80,a,c); floodfill(145,97,rgb(r,g,b)); c: =c-360/n; r: =r+30; g: =g+10; b: =b+45; end; end.

2)

uses crt, graphabc; var n,i,x1,y1,x2,y2: integer; beginread(n); x1: =350; y1: =10; x2: =360; y2: =15; for i: =1 to n do beginrandomize; setbrushcolor(rgb(random(256),random(256),random(; rectangle(x1,y1,x2,y2); fillrect(x1,y1,x2,y2); x1: =x1-5*i; y1: =y2-1; x2: =x2+5*i; y2: =y2+i*5; end; end.

3)

var a,min,max,f: integer; beginf: =0; repeatread(a); if a< > 0 then beginif f=0 then beginmin: =a; max: =a; end else beginif a< min then min: =a; if a> max then max: =a; end; f: =f+1; end; until a=0; writeln(max*min); end.

4)

var a,max1,max2,f: integer; beginf: =0; repeatread(a); if a< > 0 then beginif f=0 then beginmax1: =a; end elseif f=1 then beginif a< max1 then max2: =a else beginmax2: =max1; max1: =a; end; end else beginif a> max1 then max1: =a; if (a> max2) and (a< =max1) then max2: =a; end; f: =f+1; end; until a=0; writeln(max1+max2); end.

5)

var a,min1,min2,min3,f: integer; beginf: =0; repeatread(a); if a< > 0 then beginif f=0 then beginmin1: =a; end elseif f=1 then beginif a> min1 then min2: =a else beginmin2: =min1; min1: =a; end; end elseif f=2 then beginif (a> min1) and (a> min2) then min3: =a else if (a> =min1) and (a< =min2) then beginmin3: =min2; min2: =a; end else beginmin3: =min2; min2: =min1; min1: =a; end; end else beginif a< min1 then beginmin3: =min2; min2: =min1; min1: =a; end elseif (a< min2) and (a> =min1) then beginmin3: =min2; min2: =a; end elseif (a> =min2) and(a< min3) then min3: =a; end; f: =f+1; end; until a=0; writeln((min1+min2+min3)/3: 3: 3); end.