Var n, i: integer;
a, y: real;
begin
readln(a, n);
for i := 0 to n do
y := y + exp(ln(a) * I);
writeln(y);
end.
<span>
Работает =)</span>
Надеюсь, что ты поймешь. Пыталась итак подробно объяснить...
(Вместо 35 - 32, извините, поторопилась. Но ответ 57 в 10-ой системе)
А) (a mod 1 = 0) And (a mod a = 0)
Б) a mod 1 = 0
В)(a >= 10) and (a<= 99)
Формула для расчета разрядности: (объем памяти в байтах) : (время звучания в секундах): (частота дискретизации)
5,05 Мбайт= 5347737,6 байт
5347737,6 байт : 120 сек : 22050 Гц= 2,02 байт =16 бит
Ответ: 16 бит
Автоматическое перелистывание и переход между страницами