Var
a, k: integer;
begin
readln(a);
while a > 0 do
begin
k := k + 1;
a:= a div 10;
end;
writeln(' k =', k);
end.
Пример:
105 k =3
66 k = 2
1 k =1
104 k =3
11 k =2
94 k =2
var s,x,y:double; объявление 3-х переменных
begin
write('Введите х = ');readln(x); вводим х
write('Введите y = ');readln(y); вводим у
s:=exp(Ln(1-tan(x))*(cos(x)/sin(x)))+cos(x-y); exp(Ln(tan(x))*(cos(x)/sin(x))) - это возведение в степень, в натуральном лог. хранится выражение для возведения в степень, а умножение на нат. лог. означает возведение его в нужную нам степень(если бы там умножалось на 2,то тангенс у нас был в квадрате), а там у нас катангенс, значит возводится все в степень котангенса.
writeln('s = ',s:0:4); вывод результата
end.
2^35 * 8 = 2^38 бит
в кбите 1024 бит
2^38 : 1024 = 268 435 456 кбит
в 1 мбите 1024 кбит
268 435 456 : 1024 = 262 144 мбит
в 1 гбите 1024 мбит
262 144 : 1024 = 256 гбит
ответ 256
128 мбит : 8 = 16 мбайт
16 * 1024 = 16384 кбайт
16384 * 1024 = 155 777 216 байт
ответ 155 777 216
Оперирование факооми это-докозательство
Графическое изображение иерархической файловой структуры называется деревом.