Ответ:
Это же вроде задания с ЕГЭ уже)
*Во втором точно уверен, первое вроде бы верно
1.) N=2i, i=6
N=2^6=64
64:2=8
Поле 8 на 8
2.)
10+6=16 бит
16 * 10 =160 бит
160/8 = 20 байт
20 * 100=2000 байт
А - 03
Б - 07
В - 11
Г - 112
Д - 132
Е - 179
Ж - 221
З - 02
И - 75
Й - 83
К = 256
Л - 773
и т.д.
С числами так же, только, например, 1 - это А, 2 - это Б, и так до 9.
В буквах - значение чисел не должно совпадать, как и в числах.
32 Кбайт=32000 байт=256000 бит=256 Кбит
Program stepen;
Var a: real; b, i, n: integer;
Begin
Readln (a, n);
b:=a;
For i:=2 to n do
a:=a*b;
Writeln(a);
Readln;
End.
Var
a, b, d, s, alpha: real;
begin
Write('Введите длину диагонали прямоугольника: ');
Readln(d);
Write('Введите величину угла между большей стороной и диагональю :');
Readln(alpha);
alpha := Pi * alpha / 180;
a := d * cos(alpha);
b := d * sin(alpha);
s := a * b;
Writeln('Площадь прямоугольника равна ', s:0:3)
end.
Тестовое решение:
Введите длину диагонали прямоугольника: 35
Введите величину угла между большей стороной и диагональю :29
Площадь прямоугольника равна 519.429