Program uolt;
var s,n:real;
begin
s:=10;
n:=1;
while s<20 do
begin
s:=s+s*0.1;
n:=n+1;
end;
writeln('через ',n,' дн. спортсмен будет пробегать более 20 км в день');
<span>end.</span>
Глубина цвета изображения i=I/k, где I- информационный объем изображения (бит), k- количество точек изображения.
Количество точек найдем умножив разрешение сканера на размер изображения:
k=(256*4)*(512*4)= 1024*2048
i=(6*1024*1024*8)/(1024*2048)= 24 бит
Ответ: 24 бит
Var
A,B,C:real;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
Write('C = ');ReadLn(C);
if A>B then
Begin
if A>C then A:=A/3
else C:=C/3;
if B<C then B:=B*3
else C:=C*3
End
else
Begin
if B>C then B:=B/3
else C:=C/3;
if A<C then A:=A*3
else C:=C*3
End;
WriteLn;
WriteLn('A = ',A);
WriteLn('B = ',B);
WriteLn('C = ',C);
End.
Наталья199717, немного не верно...
1)25-5=20
2)20+18=38
3)38-20=18!!!А вообще можно только логмчески решить...т.к. в шашки только 18 играть умеют,то следовательно И В ШАШКИ И В ШАХМАТЫ может играть только 18 человек,никак не 19!
Книга - учебник
книга - справочник
жидкость - бензин
жидкость - молоко
человек - врач
человек - строитель