// task 1,2
const n= 15;
var a:array[1..15]of integer;
i,min,max:integer;
begin
min:=99999;
max:=0;
//Заполняем массив случайными числами
//И выводим его
for i:=1 to 15 do begin
a[i]:=random(100);
write(a[i]:5);
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln();
//Вывод в обратном порядке
for i:=1 to 15 do write(a[n-i+1]:5);
writeln();
writeln ('Разность max-min ',max-min);
end.
Var
s,g:string;
sum:integer;
begin
g:='бвгджзйклмнпрстфхцчшщБВГДЖЗЙКЛМНПРСТФХЦЧШЩ';
read(s);
sum:=0;
for var i:=1 to length(s) do
if (pos(s[i],g)>0) then sum:= sum+i;
writeln(sum);
end.
<span>//ABC Pascal
</span>
V = K * I, где
V - объем,
K - количество символов,
I - количество бит на символ.
N =
N - мощность алфавита.
32 =
.
i = 5 бит.
V = K * I.
V = 60 * 5 = 300 бит.
Ответ: 300 бит.
-сканер - ввод изображения
-принтер - вывод(печать) изображения/документа
-плоттер - тот же принтер только для широкоформатной печати
-монитор - вывод изображения на экран
-микрофон - ввод звука
-колонки - вывод звука
<u>Два устройства ввода: сканер, микрофон</u>
Большая скорость = 131072 бит/с
Меньшая скорость = 65536 бит/с
Полный объем = 67108864 бит
Начальный объем = 8388608 бит
Время скачивания начального объема = 8388608 / 131072 = 64.0 c
Время скачивания полного объема = 67108864 / 65536 = 1024.0 c
Общее время = 64.0 + 1024.0 = 1088.0 c = 18.133333333333333 минут