Счётчик = 2;
член_ряда = 1;
сумма = 1;
ввод n;
ввод x;
пока (счётчик <= n)
{
член_ряда = 1/(счётчик*x);
cумма = сумма + член ряда;
счётчик = счётчик + 1;
}
вывод суммы;
Алгоритм не проверял, так что проверь.
Обозначим искомое количество килобайт как Х.
100 Кб:1536 бит = Х Кб:768 бит.
Х = (100*768):1536 = 50.
Ответ: 50 Кб.
Вообще подобные задания обычно делаются в excel.
И делать с массивом или без?.
program abc;
var A : array [1..7] of integer;
s, k: integer;
BEGIN
s:=0
for k:= 1 to 7 do
begin
readln (A[k]);
s:=s+A[k];
end;
writeln ('Среднее атмосферное давление ', (s/7));
END.
Для перевода необходимо умножить разряд числа на соответствующую ему степень разряда.
101011 = 25*1 + 24*0 + 23*1 + 22*0 + 21*1 + 20*1 = 32 + 0 + 8 + 0 + 2 + 1 = 43