Ответ:
program arraysum;
const
D = 30; // размерность массива, можно менять на любое другое
var
B: array [1..D] of Integer;
i, s, c, A: Integer;
begin
Write ('A = ');
ReadLn (A);
Write ('Введите массив из 30 элементов:');
for i := 1 to D do begin
ReadLn (B [i]);
end;
// Randomize; // это заполнение случайными числами можно для отладки раскоментарить
// for i := 1 to D do begin
// B [i] := Random (21) - 5;
// Write (B [i] :3, ' ');
// end;
s := 0;
c := 0;
for i := 1 to D do begin
if B [i] < 0 then
s := s + B [i];
if (B [i] > 0) and (B [i] < A) then
Inc (c);
end;
WriteLn;
WriteLn ('Сумма отрицательных чисел =', s);
WriteLn ('Количество положительных меньших ', A, ' = ', c);
ReadLn;
end.
<span>чисел - 10000</span>
<span>Каждое тринадцатое число делится на 13</span>
<span> значит надо 10000 поделить на 13, получается 769</span>
<span>теперь числа что делятся на 17, 10000 поделить на 17, получается 588</span>
<span>10000-588-769=8643</span>
Количество информации I, которое несет сообщение о реализация события A равно -ln(p), где p - вероятность события A.
Xкр = 27 - количество семян круглой редиски
Xвыт - количество семян плоской редиски
Pвыт - вероятность достать семечко вытянутой редиски равно Xвыт/(Xкр+Xвыт)
I - количество информации, которое несет сообщение о том, что доставли одно семечко вытянутой редиски
Исходя из условий задачи, можем составить уравнение:
I = -ln(Xвыт/(Xкр+Xвыт)) -> 2^-2 = Xвыт/(Xкр+Xвыт), откуда получаем Xвыт = 9
Общее количесво семян равно (Xвыт + Xкр) = 36
<span><span><span>a)
</span>6144 байт =</span> 6144/1024=6 Кбайт
<span><span>b)
</span>1,5 Мбайта =</span> 1,5*</span>1024=1536 Кбайт
<span>
<span><span>c)
</span>4096 бита =</span>4096</span><span>/8</span><span>/1024= 0,5 Кбайт
Перевести
в Мбайты:
<span><span>a)
</span>4
Гбайта =</span>4*1024=4096 Мбайт
<span><span>b)
</span>2560
Кбайт =</span>2560</span><span><span>/1024</span>=2,5 Мбайт
<span><span>c)
</span>4 194304 бита =</span>4194304/8/1024/1024=0,5 Мбайт
Перевести
в байты:
<span><span>a)
</span>724
бит =</span>724/8=90,5 байт
<span><span>b)
</span>2,5
Мбайта =</span>2,5*1024*1024=2621440 Байт
<span><span>c)
</span>1/8
Гбайта =</span></span>1/8*1024*1024*1024=134217726 Байт
Сначала надо избавиться от ошибок (пункт №3)
иначе не сможем выполнить 1 и 2 пункт задания.
Исправляем if N mod 10 k:=N mod 10; на if (N mod 10 < k) then k:=N mod 10;
Исправляем N:N div 10; на N:= N div 10;
После исправления ошибок при вводе 537 получим 3
Программа будет работать правильно для любого числа,
у которого вторая цифра слева меньше первой цифры, например:
7193
Чтобы программа работала правильно для всех чисел надо
изменить это: while N > 10 do на while N > 0 do
После всех исправлений код программы стал таким:
var
N, k: integer;
begin
readln(N);
k := 9;
while N > 10 do
begin
if (N mod 10 < k) then k := N mod 10;
N := N div 10;
end;
write(k)
end.