<span><span>Пусть N – количество букв
в номере. Тогда существует 5^</span></span>n *10^<span><span>4 различных
номеров. По условию, должно быть выполнено 5^n*10^4>1000000,
т.е. 5^n>100. Отсюда N=3 .</span></span>
Var a,b,i,k:integer
begin
readln(a);
for i:=1 to a do begin
readln(b);
if b>0 then
k:=k+1;
end;
writeln('кол-во положительных чисел = ',k);
end.
В этой программе считается сумма положительных чисел среди введенных
Ответ:
program Geom;
program Test_nn;
{$APPTYPE CONSOLE}
{$R *.res}
uses
Math;
var
a: array of Extended;
n, i, c: Integer;
x: Extended;
begin
Write ('Размерность массива = ');
ReadLn (n);
SetLength (a, n);
Randomize;
for i := Low (a) to High (a) do begin
a [i] := (Random (2001) - 1000) / 1000;
Write (a [i] :7 :3);
end;
x := 1;
c := 1;
WriteLn;
for i := Low (a) to High (a) do begin
if a [i] > 0 then begin
Write (a [i] :7 :3);
x := x * a [i];
Inc (c);
end;
end;
WriteLn;
WriteLn ('Среднее геометрическое = ', Power (x, 1/c) :20 :15);
ReadLn;
end.
По моему мнению правильный ответ под цифрой 2
Ну как я знаю
БАВ
Ну по сути ип назначен номерами
к примеру
195.353.43.5:73742(конец это порт)