Лови
var
m,a:integer;
b,col,mor,kl,la:real;
begin
write('Сколько кг капусты = ');
readln(m);
a:=m div 10;
b:=m mod 10;
mor:=350*a;
kl:=200*a;
col:=225*a;
la:=4*a;
b:=b*0.1;
mor:=mor+350*b;
kl:=kl+200*b;
col:=col+225*b;
la:=la+4*b;
writeln('На ',m,'кг капусты надо : Морковки - ',mor,'г. Клюквы - ',kl,'г. Соли - ',col,'г. Лаврового листа - ',la,'г');
<span>end.
Тут программа только с двузначными числами работает то есть 15кг 30кг и так далее. </span>
(x1+x2)/2
Можешь не благодарить.
Program prog;
Uses crt;
var a: array [1..5] of integer;
i,k: integer;
begin
clrscr;
for i:=1 to 5 do
begin
write('a[',i,'] = ');
readln(a[i]);
if (a[i]<>0) then
inc(k);
end;
writeln;
write('k = ', k);
end.
Для решения этой задачи воспользуемся формулой:
V=t*i*d, где V - обьем файла
t - время звучания
i - глубина кодирования(обьем в байтах значит и глубина
тоже в байтах 16/8=2 байта)
d - частота дискретизации
Подставляем все в формулу:
1760000=20*2*d
d=1760000/(20*2)
d=44000 Гц=44 кГц
<u>Ответ: 44 кГц</u>
Ответ:
1 байт = 8 бит
1 Кб (1 Килобайт) = 210 байт = 2*2*2*2*2*2*2*2*2*2 байт =
= 1024 байт (примерно 1 тысяча байт – 103 байт)
1 Мб (1 Мегабайт) = 220 байт = 1024 килобайт (примерно 1 миллион байт – 106 байт)
1 Гб (1 Гигабайт) = 230 байт = 1024 мегабайт (примерно 1 миллиард байт – 109 байт)
1 кб=1024 б = 2 >13 бит