Выражение 5(A2+C3) : 3(2B2-3D3)в электронной таблице имеет вид:

Program zadacha;

Const n = 10;

Type mas=array[1..n] of integer;

Var s,i,k,d:integer;

m:mas;

Begin

s:=0;

k:=0;

readln(d);

For i:=1 to n do

read(m[i]);

For i:=1 to n do

if m[i]<d then begin

s:=s+m[i];

k:=k+1;

end;

writeln('Сумма чисел < d = ',s,' Колиество чисел < d = ',k);

end. (Это решение для случая если вы вводите сразу весь массив чисел)

Program zadacha;

Const n = 10;

Var s,i,k,d,m:integer;

Begin

s:=0;

k:=0;

readln(d);

for i:=1 to n do begin

readln(m);

if (m < d) then begin

s:=s+m14;

k:=k+1;

end;

end;

writeln('Сумма чисел < d = ',s,' Колиество чисел < d = ',k);

end. (А это решение для того случая когда вы вводите элементы по одному )

1)32Кбайт=32*1024байт=32768байт
1байт=8бит
32768байт=32768*8 бит=262144бит
262 144 бит/(4096 бит/с)=64с
64с*1024бит/с=65536бит-размер
65536бит=65536/8 бит=8192байт
2)
60 кбайт=60*1024 байт=61440 байт
1 байт=8 бит
61440 байт=61440*8 бит=491520бит
491520/4096=120с
491520/1024=480с
4080-120=360с=6минут
3)
2Кбайт=2*1024байт=2048 байт=16384 бит
16384/256=64 секунд
64*2048бит=131072 бит=16384 байт
4)
8Мбайт=8*1024к байт=8*1024*1024байт=8388608байт
8388608/100=83886,08 байт/с
83886,08 байт/с*25с=2097152 байт=2048Кбайт
5)
Файл размером 8 Кбайт передается через некоторое соединение за 64 секунды.Определите, за сколько секунд можно передать этот же файл через соединение,скорость которого на 1024 бит в секунду больше 
8Кбайт=8192байт=65536 бит
65536бит/64с=1024 бит/с
1024 бит/с+1024 бит/с=2048 бит/с
65536 бит/(2048 бит/с)=32с