program crash;
var n, k: integer;
r: real;
begin
write('n = ');
readln(n);
k := 0;
r := 0;
while n > 0 do
begin
k := k + 1;
r := r + (n mod 10) / (k * k);
n := n div 10
end;
writeln('r = ', r:0:14);
readln
end.
Фиговая фотка нифига не видно
Язык в задании не указан, значит опишу алгоритм.
Объявим переменные нужные, обязательно обнулим переменную count(все переменные целочисленные)
1. Организация заполнения двумерного массива.(Из файла, руками, в исходном коде, как угодно)
2. Первый цикл от 0 до i(кол-во строк массива)
3. Внутри первого цикла еще один цикл от 0 до j(кол-во столбцов)
4. Внутри второго цикла делаем проверку вида
if (mass[i,j] == X) then
count = count + 1
5. Теперь когда все итерации будут пройдены, переменная count будет содержать значение равное кол-во элементов со значением X
6. Делаем вывод это значения.
7. Вы восхитительны!
I=1
f=0+1*1=1
i=2
f=1+2*2=5
i=3
f=5+3*3=14
i=4
f=14+4*4=30
i=5 30+5*5=(55)
50 × 13 = 650 (кол-во символов на каждой стр), 650 × 200 = 130,000 (кол-во символов во всей книге). 1 мегабайт = 1024 килобайт, 1 килобайт = 1024 байт. 130,000 ÷ 1024 = 130(килобайт), дальше 130 ÷ 1024 = 0.13(мегабайт).
Ответ: 126,953125 килобайтов и 0,1239776611 мегабайтов