Const
K = 13;
Var
A:array[1..K] of integer;
i,n,X:integer;
Begin
Write('X = ');ReadLn(X);
Write('Исходный массив: ');
For i:= 1 to K do
Begin
A[i]:=random(21)-10;
Write(A[i],' ');
End;
n:=0;
For i:= 1 to K do
if A[i]=X then n:=n+1;
WriteLn;
WriteLn(n,' - кол-во элементов, равных ',X);
End.
Const
K = 13;
Var
A:array[1..K] of integer;
i:integer;
P:real;
Begin
P:=1;
Write('Исходный массив: ');
For i:= 1 to K do
Begin
A[i]:=random(21)-10;
Write(A[i],' ');
if A[i] mod 3 = 0 then P:=P*A[i]
End;
WriteLn;
WriteLn('Произведение элементов,кратных трём: ',P)
End.
Const
K = 13;
Var
A:array[1..K] of integer;
i,X:integer;
Begin
Write('X = ');ReadLn(X);
Write('А: ');
For i:= 1 to K do
Begin
A[i]:=random(21)-10;
Write(A[i],' ');
End;
WriteLn;
i:=0;
Repeat
i:=i+1;
Until (A[i]=X)or(i=K);
if A[i]=X then WriteLn(i)
else WriteLn('Таких элементов нет')
End.
1 килобайт-1024 байт
1 байт-8 бит
1 килобайт-8192 бита
1500 килобайт-12288000 бит
12288000/512000=24 секунды
1) PowerBank может быть сломан, бракован. 2) проверь usb штекер, проверь разъём для usb, они могут быть сломаны. 3) проверь заряжен ли PowerBank может быть просто он не заряжен?
Var
x, y, q, r: integer;
begin
read(x,y);
r := x;
q := 0;
while r >= y do
begin
r := r - y;
q := q + 1
end;
write(q,' ',r)
<span> end.</span>
ВО ПЕРВЫХ ДОПИСЫВАЙ ЗАДАНИЕ! ЕВЛИ ЗАДАЧА ТА ЧТО НИЖЕ, ТО ТЫ В ДОЛГУ!
<span>Документ (без упаковки) можно передать по каналу связи с одного компьютера на другой за 75 секунд. Если предварительно упаковать документ архиватором, передать упакованный документ, а потом распаковать на компьютере получателя, то общее время передачи (включая упаковку и распаковку) составит 30 секунд. При этом на упаковку и распаковку данных всего ушло 15 секунд. Размер исходного документа 20 Мбайт. Чему равен размер упакованного документа (в Мбайт)?
РЕШЕНИЕ:
</span>Чтобы передать документ без упаковки, нужно 20Мб передать за 75 секунд
Чтобы передать документ с упаковкой, нужно XМб передать за 15 секунд, т.к. 15 секунд ушли на упаковку и распаковку.
Скорость канала одна и та же.Найдем скорость
V=20Мб/75с=4/15Мб/с;
Теперь найдем размер упакованного документа
Х=4/15*15=4Мб
Ответ:4Мб