1) Рисунок объемом 16 МБ сканирован с разрешением 512 dpi. Размер 15 х20 см. сколько цветов в палитре. 2) Какой объем файла получится при сканировании рисунка 6Х8 дюймов и 1024 dpi Цветов в палитре 240

Program grapho; uses crt ,graphabc; var xc ,yc ,r1 ,r2 ,rc ,ro ,n ,i ,x ,y : integer;     a : real; begin repeat write ( 'количество отверстий от 3 до 7 n=' ); read (n ); until n in [3..7 ]; clrscr; hidecursor; xc : =windowwidth div 2; yc : =windowheight div 2; r1 : = 50; r2 : = 150; rc : = 100; ro : = 30; a : =2 *pi /n; circle (xc ,yc ,r2 ); circle (xc ,yc ,r1 );   for i : =1 to n do   begin   x : =xc +round (rc * cos (a *i ) );   y : =yc -round (rc * sin (a *i ) );   circle (x ,y ,ro );   end; end.

1)  2, 5, 4, 7, 8, 9,  16,  11, 32

 

2           5

4           7

8           9

16         11

32

*2           +2

 

чётное порядковое число умножается на 2

 

 

 

 

нечётное порядковое число увеличивается на 2

 

 

 

 

2) 3, 8, 15,  24,  35, 48,  63, 80

 

3

3+5=8

8+7=15

15+9=24

24+11=35

35+13=48

48+15=63

63+17=80

 

(к предыдущему ответу прибавляется по порядку идущее нечётное число)

(1010,01)16=1*16^3+0*16^2+1*16+0+0*16^(-1)+1*16^(-2)=4112,00390625

(f001)16= 15*16^3+1=61441

var a: array[1..100] of integer;

i,ms,ps: integer;

begin

  {vvod massiva a}

  for i: = 1 to 100 do

    if a[i] > 0 then ps: =ps+a[i]

    else ms: =ms+a[i];

  writeln(ps,ms);

 

end.