Ключ, ключевое поле
тттттттт
Pascal abc.
<u>Проверка</u>
введите номер автобусного билета (6 цифр)
666666
счастливый
<span>введите номер автобусного билета (6 цифр)
123456
не счастливый<span>
</span></span>
Задание 1. x = log(2,4096) = 12 бит
Информационный объем I = 256 Гц * 12 бит * 10 * 60 с = 1843200 бит = 230400 байт = 225 Кбайт
Ответ 4) 225
<em /><em />
Задание 2 Информационный объем I = 16000 Гц * 24 бит * 5 * 60 с * 2 (стерео) = 230400000 бит = 28800000 байт = 28125 Кбайт = 27,4658203125 Мбайт
Ответ 2) 30 Мбайт
Var
n,m,d,k,Max,Maxk:integer;
Begin
Write('n = ');ReadLn(n);
Write('m = ');ReadLn(m);
Maxk:=0;
For n:= m downto n do
Begin
if n>1 then k:=2
else k:=1;
d:=n div 2;
While d>1 do
Begin
if n mod d = 0 then k:=k+1;
d:=d-1
End;
if k>=Maxk then
Begin
Maxk:=k;
Max:=n;
End;
End;
WriteLn('Искомое число: ',Max);
WriteLn('Количество делителей этого числа: ',Maxk);
End.
Эта функция выведет 20.
Сначала мы передаём 2 в функцию h как указатель.
Увеличиваем 2 на один, а потом ещё на один, у нас выходит 4.
Возвращаем 4+4=8.
Потом мы передаём 4 в функция h как указатель.
Увеличиваем 4 на один, а потом ещё на один, у нас выходит 6.
6+6=12.
Ну а потом мы возвращаем сумму наших двоих функций h.
12+8 = 20.