Может быть вот так, мы писали что-то похожее в классе, только по другому сформулировано
program Chisla;
<span> </span><span>var a,n:integer; </span>
<span>begin </span>
writeln('a= ',a);
<span>readln(a); </span>
<span>if (a div 100 <9) and (a div 100 >=1) then inc(n); </span>
<span>writeln('n= ',n); </span>
<span> </span><span>end.
</span>Прошу прощения, если не то...
Var p, s, a, b : real;
begin
writeln ('Введите - А');
readln (a);
writeln ('Введите - Б');
readln (b);
p:=Sqrt(a*a+b*b)+a+b;
s:=a*b/2;
writeln ('Периметр - '+p);
writeln ('Площадь - '+s);
end.
Доміно, доктор, ребус, речі, міра, міф, факт, фантазія, парасолька, посольство, лялька, каструля, сіно, сідло
Дан объём графического файла V=100 Кбайт = 10² * 2¹³ бит
количество пикселей в изображении 320*640 = 10 * 2⁵ * 10 * 2⁶ = 10² * 2¹¹ (пикселей)
1) у нас есть объём файла и количество пикселей
найдём, сколько бит приходится на 1 пиксель
для этого объём делим на количество пикселей
(10² * 2¹³)/(10² * 2¹¹) десять в квадрате сокращаются,
остаётся 2¹³/2¹¹
по свойству степеней 2¹³⁻¹¹ = 2² = 4 бит (вес 1го пикселя)
кол-во цветов - I
вес пикселя = 2 в степени I
2 в степени I = 4
I = 2
2 цвета в палитре
2) Если увеличить кол-во цветов в палитре в 4 раза, то объём файла это произведение кол-ва пикселей на их вес
вес пикселя от изменения количества цветов увеличится так 2 в степени (4*2), то есть 2⁸ = 256 (бит для одного пикселя)
следовательно объем = 256*320*640
найдём его в кбайтах (256*320*640)/8*1024 = 6400 кбайт
Объем изменится в 64 раза
Размер цифрового моноаудиофайла измеряется по формуле:
A = D*T*i,
где D – частота дискретизации (Гц), T – время звучания или записи звука, i - разрядность регистра (разрешение или глубина кодирования звука).
750 Кбайт = 750*1024 байт = 750*1024*8 бит
32 кГц = 32000 Гц
i = 750*1024*8 / (32000*12) = 16 бит
Ответ: 16 бит