Var a,b,c,x :integer;
function NOD(a,b:integer):integer;
begin
while a<>b do
if a>b then
a:=a-b
else b:=b-a;
Result:=a;
end;
begin
write('Введите a,b,c: ');
readln(a,b,c);
x:=NOD(NOD(a,b),c);
writeln('НОД=',x)
<span>end.</span>
Дано:
t = 2 мин=120 c
f = 44100 Гц
i = 22 бит
V = ?
Решение:
V = f*t*i
V = 44100*120*22 = 116424000 бит <span>~ 13,88 Мбайт</span>
00001,00010,00100,01000,10000.
Ответ:
12 Скорость передачи данных по локальной сети 512000 бите.
Передача файла через это соединение заняла 1 минуту. Определите
объем данного файла в килобайтах.
Итак, есть скорость:512000 бит/с
Есть время: 60 сек;
Нужно найти расстояние. 60*512000=2048000*15 бит
2048000*15/8/1024=30000/8=15000/4=7500/2=3750 килобайт
13 Вычислите необходимый объем видеопамяти для графического
режима, если разрешение экрана монитора составляет 1024 на 768
пикселей и глубина цвета 32 бита.
1024*768*4=3 мегабайта