Если не показывабют число значит оно умножено на 0
а) 10010
б) 1030200
Var n:longint;
function kol(n:integer):integer;
begin
if n<10
then kol:=1
else kol:=kol(n div 10)+1;
end;
begin
write('n = ');
readln(n);
writeln('k = ',kol(n));
end.
Пример:
<span>n = 15324
k = 5</span>
1-b
2-b
3-a
4-a
5-a
6-a
вроде так
Так как для хранения файлов отводится некоторое количество кластеров (количество кластеров определяется исходя из размера файла), то для хранения файла размером 1000 байт будет отведен один кластер, т.е. 4 килобайта.