почему бы тебе не закинуть все в одно задание?)
не первый раз тебе пишу уже)
program p_4;
var
i, n, count: word;
begin
readln(n);
count := 0;
for i := 1 to n do begin
if n mod i = 0 then inc(count)
end;
writeln(count)
end.
Формула нахождения объема закодированного звука
A = D * i * t * c (D - частота дискретизации, i - глубина бит/разрядность, t - время, c - кол-во каналов)
Приводим единицы измерения
i = ln(65536) / ln(2) = 16 бит
D = 8 кГц = 8000 Гц
t = 30 c
A = D * i * t * c = 8000 * 16.0 * 30 * 2 = 7680000.0 бит = 937.5 Kбайт = 0.91552734375 Мбайт
1. От 2^8 + 1 до 2^9 = от 257 до 512
2. В случае, если шары не пронумерованы, 4 первых бита на синие шары, затем 3 - на зелёные, далее 2 - на жёлтые и 1 - на красные. Если же пронумерованы, то log2 20 = 5 бит.
{Возможно это можно более просто организовать, однако программа работает :) }
Var a,b,ax,x: integer; flag: boolean;
Begin
Readln(a,b); ax:=a;
If (a>=0) and (b>=0) then flag:=true
else begin a:=abs(a); b:=abs(b); flag:=false; end;
If (a=0) or (b=0) then write('0')
else begin while b > 1 do
begin a:=a+ax; dec(b); end; x:=a;
if flag then write(x) else write(x-x*2); end;
End.
<span>readln(d); оператор, который считывает число d.
вероятно, тут нужно указать некоторое число d, при котором алгоритм выводит некоторый результат.
посмотрите задание более внимательно.</span>