<span><span>var
a,s: real;
n,i: byte;
begin
write('Введите вещественное a: ');
readln(a);
repeat
write('Введите целое n (n>0): ');
readln(n);
until (n>0);
s:=1;
for i:=1 to n do
begin
s:=s*a;
writeln(a,' в степени ',i,' = ',s);
end;
readln; //в pascalAbc.net - не обязательно
end.</span></span>
Находим объем 1 страницы в битах
(1,5*1020*1024*8)/4=<span>
<span>3525120 бит
</span></span><span>
3525120/(800*600)=</span><span>
<span>7,344 глубина цвета</span></span>≈8 бит<span><span>
</span></span>2^8=256 цветов
Program pro;
var k,a,sym:integer;
begin
readln(k);
while k>0 do
begin
a:=k mod 10;
sym:=sym+a;
k:=k div 10;
end;
writeln('Сумма разрядов четырехзначного числа равна ',sym)
end.
1
375 байт = 375*8 бит = 3000 бит всего, значит на каждый символ приходится:
3000 / 500 бит = 6 бит
6ю битами мы может закодировать <span> различных символов.</span>
ответ. не более чем 64 2
Число символов в сообщении равно:
Значит на каждый символ приходится:
9000 / 14400 байт = 9000 * 8 / 14400 бит = 5 бит
это информационный вес каждого символа.
с помощью 5 бит можно закодировать <span> различных символов.</span>
<span>ответ. 5 бит, 32 символа так надеюсь</span>
Pascal abc.
Проверка
введите кол-во элементов массива
10
12 13 27 29 19 18 11 20 22 16
<span>сумма=187</span>