Пароль, число, шифр, номер, количество чего-либо.
1)
Var
x,y:real;
begin
read(x);
y:=(3+exp(x))/cos(x)-1/abs(sqr(x)-0.2*x);
writeln(y);
end.
2)
Var
x,y:real;
begin
read(x);
if x<=3 then y:=sqr(x)-3*x+9 else y:=1/(power(x,3)+6);
writeln(y);
end.
3)
Var
p,i:integer;
begin
p:=1;
for i:=9 to 16 do //рассматривается вариант с до 17, а не по 17
if odd(i) then p:=p*i;
writeln(p);
end.
Program
Title;
Var i, A, B
:Integer;
Begin
WriteLn('Введите первое число');
ReadLn(A);
WriteLn('Введите второе число');
ReadLn(B);
If a>b
then writeln(a+b) else writeln(a*b)
Writeln('Задача решена')
End.
<u>A. Решение на калькуляторе</u>
1. Находим общее количество пикселей
n = 1024×768 = 786432
2. Находим количество бит, необходимое для отображения цвета одного пикселя
k=㏒₂64 = 6 (или просто вспоминаем, что 64=2⁶)
3. Определяем объем информации в битах
I = n×k = 786432×6 = 4718592 бит
4. Переводим в более крупные единицы
- в байты: 1 байт=8 бит; 4718592 бит/8 = 589824 байт
- в Кбайты: 1 Кбайт=1024 байта; 589824 байт/1024 = 576 Кбайт
- в Мбайты: 1 Мбайт=1024 Кбайта; 576 Кбайт/1024 = 0.5625 Мбайт.
<u>Б. Решение "в степенях двойки"</u>
1. Находим общее количество пикселей
n = 1024×768 = 2¹⁰×2⁹×1.5 = 2¹⁹×1.5
2. Находим количество бит, необходимое для отображения цвета одного пикселя
k=㏒₂64 = 6 (или просто вспоминаем, что 64=2⁶)
3. Определяем объем информации в битах
I = n×k = 2¹⁹×1.5×6 = 2¹⁹×9 бит
4. Переводим в более крупные единицы
- в байты: 1 байт=2³ бит; 2¹⁹×9 бит/2³ = 2¹⁶×9 байт
- в Кбайты: 1 Кбайт=2¹⁰ байт; 2¹⁶×9 байт/2¹⁰ = 2⁶×9 Кбайт = 64×9 = 576 Кбайт
- в Мбайты: 1 Мбайт=2¹⁰ Кбайт; 2⁶×9 Кбайт/2¹⁰ = 2⁻⁴×9 Мбайт = 9/16 Мбайт = 0.5625 Мбайт.
1 Байт = 8 Бт
1 Килобайт = 8 кБт
1 Мегабайт = 8 мБт
1 Гигабайт = 8 гБт
Формула:
Бт = Байт * 8;
кБт = Килобайт * 8;
мБт = Мбайт * 8;
гБт = Гбайт * 8.