Var F2:real; n,F:longint; Begin Write('n = ');ReadLn(n); F:=1; For n:= 1 to n do F:=F*n; F2:=1; For n:= 1 to F do F2:=F2*n; WriteLn('n = 6.68950291344912E+198
Больше не выдержит вещественный тип.
Var S:real; N:integer; Begin Write('N = '); ReadLn(N); S:=0; For N:= 1 to N do S:=S+1/N; WriteLn('S = ',S); End.
1. 128, так как 2^7 = 128, то есть семью битами можно закодировать 128 разных вариантов.
2. Черно-белое изображение без градаций - это два цвета (черный и белый). Глубина цвета - 1 бит, так как одним битом можно закодировать два варианта. 50*50 = 2500 бит, 2500/8 = 312,5 = 313 байт.
3. Определим глубину цвета, для этого разделим объем на количество пикселей. (3*1024*8 бит) / (128*64) = (3*2^10*2^3) / (2^7*2^6) = 3 бита. Тремя битами можно закодировать 8 цветов, т.к. 2^3=8
4. Палитра состоит из 64 цветов, значит глубина цвета равна 6 битам, т.к. 2^6 = 64. Объем в килобайтах будет равен (32*128*6) / (8*1024) = (2^12 * 6) / 2^13 = 6 * 2^(-1) = 3 Кбайт
1)От 100 до 900 существует 801 число, для представления 801 различных чисел нужно 10 бит, 2 в 10-й степени =1024, а 2 в 9-й степени только 512. 128х5х10=6400 бит=800 байт 2)Известно, что с бит можно закодировать 2N различных чисел. Поскольку 26 < 119 < 27 и для каждого спортсмена число бит одинаково, то для записи каждого из 119 номеров необходимо 7 бит памяти. Поскольку промежуточный финиш велосипедистов, то информационный объем сообщения составит 70*7 бит=490 бит. 7)Решение: N = 10 х 5 + 4 х 8 = 82 N = 2i = 128 i = 7ответ: 7 бит 10)бщее количество ключей на всех уровнях 16*8=128 (чет много=)) Нам надо найти, в какую степень надо возвести 2, чтобы получить 128. 2^x=128 x=7 Вот собственно и ответ. 7 бит
F2:real;
n,F:longint;
Begin
Write('n = ');ReadLn(n);
F:=1;
For n:= 1 to n do
F:=F*n;
F2:=1;
For n:= 1 to F do
F2:=F2*n;
WriteLn('n = 6.68950291344912E+198
Больше не выдержит вещественный тип.
Var
S:real;
N:integer;
Begin
Write('N = ');
ReadLn(N);
S:=0;
For N:= 1 to N do
S:=S+1/N;
WriteLn('S = ',S);
End.