Varn, nine, one: integer;
begin
readln(n);
nine := 0;
one := 0;
while (n > 0) do
begin
if (n mod 10 = 1) then
inc(one)
else
if (n mod 10 = 9) then
inc(nine);n := n div 10;
end;
if (one = nine) then
writeln('Равны')
else
if (one > nine) then
writeln('Единиц больше')
else
writeln('Девяток больше');
<span>end.</span>
<em><span>V= d*i*t*s, где t – длительность звучания файла, s – количество каналов звучания, V - объем звукового файла</span></em>
I=8 бит,
d=8 кГц,
t=1200*1024*8/( 8*8*1000)=153,6 секунд
Деревья . Они в результате фотосинтеза выделяют кислород и забирают себе угл газ
<span>На первое задание
4) разорви
5) намочи
6) изгрязни
7)высуши
8) положи
9) конец</span>