определить длительность звукового моно файла ( в часах), который уместится на диске, информационная емкость которого равна 700 мбайт. при низком качестве звука равном 8 бит, измерение которого проводилось со скоростью 8000 измерений в секунду.
HTML-верстальщик Администратор базы данных Блоггер Веб-интегратор Веб-дизайнер Веб-программист Диктор Кодер Контент-менеджер Копирайтер Оператор ПК Программист Робототехник Системный администратор Тестировщик Эти профессии , в частности появились после появления компьютеров и поэтому работники этих профессий выжимают из пк многое, что без появления пк не получилось бы или надо бы было затратить много времени. Эти профессии кажутся для нас уже обыденностью, но до появления пк о них не знал ни кто. Мир не стоит на месте, появляются новые среды программирования, новые обеспечения, программы и т.д., которые требуют опытных специалистов..
Uses crt; const n=10; var a,b,c: array [1..n] of integer; x,y,z,k: integer; begin y:=0; z:=0; for x:=1 to n do begin a[x]:=random(100)+1; if a[x] mod 2=0 then begin inc(y); b[y]:=a[x]; end else begin inc(z); c[z]:=a[x]; end; write(a[x]:4); end; writeln; k:=y; for y:=1 to k do write(b[y]:4); writeln; k:=z; for z:=1 to k do write(c[z]:4); end.
Администратор базы данных
Блоггер
Веб-интегратор
Веб-дизайнер
Веб-программист
Диктор
Кодер
Контент-менеджер
Копирайтер
Оператор ПК
Программист
Робототехник
Системный администратор
Тестировщик
Эти профессии , в частности появились после появления компьютеров и поэтому работники этих профессий выжимают из пк многое, что без появления пк не получилось бы или надо бы было затратить много времени. Эти профессии кажутся для нас уже обыденностью, но до появления пк о них не знал ни кто. Мир не стоит на месте, появляются новые среды программирования, новые обеспечения, программы и т.д., которые требуют опытных специалистов..
const n=10;
var a,b,c: array [1..n] of integer;
x,y,z,k: integer;
begin
y:=0;
z:=0;
for x:=1 to n do begin
a[x]:=random(100)+1;
if a[x] mod 2=0 then begin
inc(y);
b[y]:=a[x];
end
else begin
inc(z);
c[z]:=a[x];
end;
write(a[x]:4);
end;
writeln;
k:=y;
for y:=1 to k do
write(b[y]:4);
writeln;
k:=z;
for z:=1 to k do
write(c[z]:4);
end.