Решения получается промежуток 4.8:9.1
Если ты под мб- имеешь ввиду мегабиты(Мб) , то считаем так:
1 Мб (мегабит)-1024 Кб (килобит) = 1048576( ну или примерно 1049000) бит
для 2,5 мегабит это выглядит так: 2,5 Мб= 2560 Кб (килобит) = 2623000 бит
если ты имел ввиду мегабайт (МБ) , то считаем так:
1 МБ =1024 КБ (килобайт) = 1048576 (ну или примерно 1049000) байт = 8389000 бит
отсюда 2,5 МБ= 2560 КБ= 2623000 байт = 20970000 бит
как видишь в зависимости от того что ты понимал под аббревиатурой "мб" зависит конечное число.
для справки : 1 байт = 8 бит
1 Кб(килобит)= 1024 бит
1КБ (килобайт)= 1024 байт
и так далее.
<em>P.S: <u />если не понял(а) , то конвертер величин в помощь)</em>
Глубина цвета изображения i=I/k, где I- информационный объем изображения (бит), k- количество точек изображения.
Количество точек найдем умножив разрешение сканера на размер изображения:
k=(256*4)*(512*4)= 1024*2048
i=(6*1024*1024*8)/(1024*2048)= 24 бит
Ответ: 24 бит
program odin; var a,b,sum,razn,proizv,chast:real;
begin
writeln('vvedite a');
readln (a);
writeln('vvedite b');
readln(b);
if (a<>0) and (b<>0) then begin writeln('summa=',a+b:0:0);
writeln('raznost=',a-b:0:0);
writeln('proizvedenie=',a*b:0:0);
writeln('chastnoe=',a/b:0:1);
end
else writeln ('chiso ravno 0');
end.
Procedure s(n,ans:integer);
begin
if n<>0 then begin
ans:=ans+n+n-1;
s(n-1,ans);
end
else
writeln(ans);
end;
Вот пример всем программыprogram znanijatop;const null = 0;
procedure s(n,ans:integer);
begin
if n<>0 then begin
ans:=ans+n+n-1;
s(n-1,ans);
end
else
writeln(ans);
end;
var n:integer;
begin
writeln('vvedite n');
readln(n);
s(n,null);
end.