Владея информации человек владеет всем. Особенно это важно в политике в конкуренции. и.т.д.
Ответ единица. :)
Пояснения или решение нужны?
1 способ
var i,k:integer;
<span>begin
k:=0; </span>
for i:=999 downto 100 do
begin
if i mod 13= 0 then
k:=k+1;
end;
write(k);
<span>end.
2 способ
</span>var i,k:integer;
<span>begin
k:=0; </span>
<span>for i:=100 to 999 do </span>
<span>begin </span>
<span>if i mod 13= 0 then </span>
k:=k+1;
<span>end; </span>
write(k);
<span>end.</span>
program foo;
uses Crt;
var
a, s: real;
begin
ClrScr;
write('Сторона квадрата: ');
read(a);
s := Sqr(a);
Writeln('Его площадь: ', s:0:2);
ReadKey;
end.
По формуле или
(N - кол-во цветов в палитре, i - глубина цвета)
Глубина цвета бит (округляем в большую сторону так как кусками тут быть не может)
Глубина цвета бит (округляем в большую сторону так как кусками тут быть не может)
Общий вес
I = K * i (K - кол-во пикселей, i - Глубина цвета)
Отношение объемов информации раз