Составьте программу, которая находит наименьшую сумму ряда 3+4+5+6+ превыщающую 15(паскаль авс)

program summa;

uses crt;

var s, i, n: integer;

begin

write ('n='); readln (n);

s: =1; write ('s=1');

for i: =2 to n do

begin

s: =s+i;

write ('+', i);

end;

write ('=', s);

readln;

end.

var x1, x2, y1, y2, r1, r2, d, b, x3, x4, y3,y4,x,y, h, a: real;

begin readln(x1, y1, r1, x2, y2, r2); d : = sqrt(sqr(x1 - x2) + sqr(y1 - y2)); if (d > r1 + r2) or (d < abs(r1 - r2)) then writeln('no intersection point') else if (x1 = x2) and (y1 = y2) then if (r1 = r2) then writeln('infinity') else writeln('no intersection point') else begin b : = (r2 * r2 - r1 * r1 + d * d) * 0.5 / d; a : = d - b; h : = sqrt(abs(r1 * r1 - sqr(; x : = x1 + (x2 - x1) * a / d; y : = y1 + (y2 - y1) * a / d; x3 : = x - (y - y2) * h / b; y3 : = y + (x - x2) * h / b; x4 : = x + (y - y2) * h / b; y4 : = y - (x - x2) * h / b; writeln(x3, ' ', y3); if(x3< > x4)or(y3< > y4) then writeln(x4, ' ', y4); end; end.

1. для кодирования одного пикселя, который может принимать один из 16 цветов необходимо 

i1 = ln(16) = 4 бит;

для кодирования одного пикселя, который может принимать один из 4294967296  цветов необходимо  i2 = ln(14294967296)   = 32 бита;

ответ: p = i2/i1 = 8 - во столько раз увеличится объем занимаемой памяти изображения.

2. определим количество памяи которое занимает изображение:

s = 640*480*3= 921600 ,байт

определим скорость модема:

ответ:   v = 921600/256 = 3600 байт/с