var arr: array [1..9] of integer;
i, num: integer;
begin
i := 1;
while (i <= 9) do
begin
readln(num);
if (num mod 3 = 0) then
begin
arr[i] := num;
i := i + 1;
end;
end;
end.
If (1<x) and (x<2)
then begin x:=x+1; y:=0; end
else begin x:=0; y:=y+1; end;
Я думаю, что это вышка сотовой связи. Она перекрывает определенную площадь сотовой связью.
Я уж забывать эту тему стал,
Дано:
I = 1.5 Кб
K = 3072
Найти: N — ?
Решение:
I = I/K
N=2i
I= 1,5Кб = 1,5 • 1024 • 8 = 12 288 бит.
I = 12288/3072 = 4 бита
N = 24 =16 символов