Program zadacha;
var a: array[1..5] of integer;
max,min,i,nmax,nmin: integer;
begin
for i:=1 to 5 do
begin
write ('Ââåäèòå a[',i,']=');
readln (a[i]);
end;
max:=a[1];
min:=a[1];
nmax:=1;
nmin:=1;
for i:=1 to 5 do
begin
if a[i]>max then
begin
max:=a[i];
nmax:=i;
end;
if a[i]<min then
begin
min:=a[i];
nmin:=i;
end;
end;
for i:=1 to 5 do
begin
write (a[i],' ');
end;
writeln;
writeln ('Максимальный элемент равен ',max,', его номер ',nmax);
writeln ('Минимальный элемент равен ',min,', его номер ', nmin);
end.
1.<span> 256000 бит/с * 16 с = </span>4096000 бит
1 бпйт = 8 бит ⇒ 4096000 бит = 512000 байт
512000 байт / 1024 = 500 Кбайт
Ответ: 500
2. 2000 К байт = 2000 * 1024 * 8 = 16 384 000 бит
Скорость передачи - 1024000 бит/с
t = 16 384 000 / 1024000 = 16c
Ответ: 16
3. Скорость передачи - <span>128 000 бит/с
Размер файла - </span><span>375 Кбайт
Размер файла = 375 * 1024 * 8 = 3072000 бит
t = 3072000 бит / </span><span>128 000 бит/с = 24с
Ответ: 24 с
4.Скорость передачи = </span><span>512 Кбит/с
Время передачи = </span><span>4 минуты = 240 с
Размер файла = 512 Кбит/с * 240 с = 122880 Кбайт = 120 Мбайт
Ответ: 120 Мбайт
5. Скорость передачи = </span><span>64 Кбит/с
Время = 10 минут = 600 с
Размер файла = 64 Кбит/с * 600 с / 8 = 4800 Кбайт
Ответ: 4800
6. Размер файла = 5 Кбайт
Скорость передачи = 2048 бит/с
5 Кбайт = 5120 байт
Скорость второго соединения = 512 бит/с, т.е. в 4 раза меньше ⇒
5120 / 4 = 1280
Ответ: 1280
7. По аналогии с предыдущим заданием, делаем и это:
Скорость второго соединения в 8 раз меньше, чем первого.
16 Кбайт / 8 = 2 Кбайта = 2048 байта
Ответ: 2048
</span>
1: удали <span>Sony Vegas
2: установи </span>K-Lite Codec Pack(либо же переустанови, если таковой имеется), но перед установкой удали старые кодеки.
3: установи Quick Time и ПЕРЕЗАГРУЗИ ПК
4:Установи Sony Vegas (13.0), если не прокатит откатись до 12-ой версии.
А В А*В А*В+А В*А А+В*А (А*В+А)*(А+В*А)
0 0 0 0 0 0 0
0 1 0 0 0 0 0
1 0 0 1 0 1 1
1 1 1 1 1 1 1
Program Project;
uses
crt;
var
a: byte;
begin
clrscr;
Write("Введите число ");
Readln(a);
Writeln("Полученные числа:",(a div 100)," ",(a mod 10));
Readln;
end.