С помощью степи двух, и получаеться что наименьшее кол-во лампочем равно 7.
Program n1;
Uses CRT;
Const n=40;
Var A:array[1..n] of integer;
i: integer; S:Real;
begin
writeln('Massiv: ');
For i:=1 to n do
begin
a[i]:=random(20);
write(' ',A[i]:2);
end;
writeln;
For i:=1 to n do begin S:=s+A[i]/n; end;
Writeln('Srednee arif.: = ',S);
readln;
<span>end.</span>
Я надеюсь эти задачи не 8 мого класса, т.к я сдаю информатику, но мы ничего подобного ещё не решали, но я решу 1 задачу, по этому примеру можно решить остальные.
Для начала найдём сколько бит весит файл в 160Кбайт: 1310720 бит
Дальше найдём сколько времени нужно для передачи этого файла: 1310720 : 2048 = 640 сек
Потом находим сколько бит передаётся по новому кабелю: 640×768=491520 бит
И переводим биты в Кбайты: 491520:8 потом делим на 1024=60 Кбайт
R - Red, G - Green, B - Blue.
Если смешать - получим белый.
Var
k, m, num: integer;
Dat: array[1..10] of integer;
Begin
Dat[1] := -7; Dat[2] := -8;
Dat[3] := 3; Dat[4] := 6;
Dat[5] := -4; Dat[6] := 3;
Dat[7] := 5; Dat[8] := 5;
Dat[9] := 7;Dat[10] := 1;
num:=1;
m := Dat[1];
for k := 2 to 10 do
if Dat [ k] *m< 0 then
begin
m := Dat[k];
num:= k
end;
writeln(m);
End.
Ответ
3