program zad4;
uses crt;
var
s,i,n: integer;
begin
clrscr;
writeln('Вычисление
суммы первых n положительных чисел');
writeln('введите
количество суммируемых чисел');
readln(n);
s:=0;
for i:=1 to n do
<span>
begin</span>
<span>
If n mod i =0 then</span>
<span> s:=s+n;</span>
<span> end;</span>
writeln('сумма
первых ',n,' положительных чисел равна ',s);
readln;
<span>end.</span>
<span>
</span>
<span>
</span>
<span>Попробуй как-то так</span>
0101011(2) = 2^5+2^3+2^1+2^0 = 32+8+2+1 = 43(10)
47(8) = 4*8+4 = 32+7 = 39(10)
63(10)
A0(16) = 10*16 = 160(10)
Числа по возрастанию: 47(8), 0101011(2), 63(10), A0(16)
Блок-схема во вложении. Если нужен ввод элементов массива, то непосредственно перед ромбиком с if вставить ввод x[i,j]
<span>воспользуемся формулой I= log2N
</span><span>Имеем I= log28= 3 бита.</span>