Function kolich (a: integer):integer
Begin
Integer i;
I:=1
While (a div 10 > 0) do
Begin
i:=i+1;
a:=a div 10;
End;
Kolich:=i;
End
If (1<x) and (x<2)
then begin x:=x+1; y:=0; end
else begin x:=0; y:=y+1; end;
<span>Низкого — экваториальные и умеренные широты; высокого — тропические и приполярные широты.</span>
1 Мб = 1024 Кб
Размер книги = 512 Кб
Ёмкость компакт-диска = 700 Мб = 716800 Кб
Ск-ко можно разместить ?
Отв.: 1400 книг.