Вроде так:
1 - 4
2-
3-2
4-1
5-1
Uses crt;
const N=10;
var a:array [1..N] of integer;
x,k:integer;
begin
k:=0;
for x:=1 to 10 do
begin
a[x]:=random(1000)+1;
writeln('a[',x,']:',a[x]);
if (a[x]>=100) and (a[x]<=999) then
if (a[x] mod 10=7) or (a[x] div 100=7)
or (a[x] div 10 mod 10=7) then inc(k);
end;
writeln('Количество трехзначных элементов, содержащих цифру 7:',k);
<span>end.</span>
ответ: число цифр во входном числе
4 задача:
1) 32*60*10=19200 Кбит в 10 мин
<span>2) 19200:8=2400 Кбайт в 10 мин
</span>
2 задача:
Переводом кбайты в биты: 9•1024•8=73728
73728/36=2048(бит/сек) скорость соединения
2048+1024=3072(бит/сек) - скорость нового соединения
73728/3072=24 секунды
3 задача:
256 бит в секунду = 256/8 байт в секунду = 32 байт в секунду
файл в 2 Кибайта передается за 2048/32 = 64 секунды.
другое соединение - 2048 бит/с = 256 байт/с
за 64 с передастся 256 * 64 = 16384 байта или 16 Килобайт
5-ую задачу
1 байт - 8 бит
х байт - 1024000 бит
х = 1024000/8 = 128000 байт/с (скорость передачи данных)
128000*5 = 640000 байт весит файл
1 килобайт = 1024 байт
<span>640000/1024 = 625 Кбайт весит файл
</span>
3*1024=кб
652489:8=байт :1024= кб
8192:1024=кб :1024= мб
считай сам, ибо с моба не удобно