Var
max,min,i:integer;
b:real;
a:array[1..9]of integer;
begin
for i:=1 to 9 do
begin
while (a[i]<1) or (a[i]>6) do
begin
write(i,' оценка: ');
readln(a[i]);
end;
if i=1 then
begin
max:=a[1];
min:=a[1];
end;
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
b:=b+a[i];
end;
b:=(b-min-max)/7;
writeln('Зачетная оценка: ',b);
<span>end. </span>
1) 2 (для программиста)
2) 2 (антивирусные программы)
<span>При одном - 830*630</span>
<span> Двум - 650*400;</span>
<span> Четырем - 420*31</span>
А := 3 (а=3)
b := 4 (a=3, b=4)
b := 72-a*b =72-3*4=72-12=60 (a=3, b=60)
a := b/20*a =60/20*3=3*3=9 (а=9, b=60)
ответ: 9
объём книги
600*36*64 = 1382400 символов
При 1 байте на символ - 1382400 байт
64 кб/с - это килобиты в секунду?
Тогда, при 8 битах в байте, надо передать
1382400*8 = 11059200 бит
за секунду передаётся 64*1024= 65536 бит
а времени уйдёт
11059200/65536 = 168,75 с