В 18 задании у натурального логарифма пропущен аргумент.
Я поставил по умолчанию 1.f, но, если я не прав, измените его.
У каждого задания свой файл(matematika_X.cpp, где X - номер задания).
Здесь 5 заданий. Остальные задания отправлю в личные сообщения
Var j, min: integer;
a: array [1..30] of integer;
begin
min:= 1001;
for j:=1 to 30 do
if (a[j]mod 10=3) and (a[j]min:= a[j]);
if min:= 1001
then writeln('Не найдено')
else writeln(min);
end.
Вот, в Excel удобнее, самому не надо проверять каждую строку :)
Размер цифрового моноаудиофайла измеряется по формуле:
A = D*T*i,
где D – частота дискретизации (Гц), T – время звучания или записи звука, i - разрядность регистра (разрешение).
24 кГц = 24000 Гц; 32 кГц = 32000 Гц
30 Мбайт = 30*1024 Кбайт = 30*1024*1024 байт = 30*1024*1024*8 бит
T = 30*1024*1024*8 / (2*24000*16)
A2 = 4*32000*16*30*1024*1024*8/(2*24000*16) = 4*32*30*1024*1024*8 / (2*24) =
= 80*1024*1024*8 бит = 80 Мбайт
Var C2, C1: longint;
a, b, n: integer;
begin
readln(a, b, n);
b := b + a * 100;
C1 := b * n;
C2 := C1 mod 100;
C1 := C1 div 100;
writeln(C1, ',', C2);
<span>end.
Вот так =)</span>