Это система двоичного кодирования.
двоичное кодирование универсальное и самое простое для понимания
300*200=600000
600000*8/8/1024~59Кб
Обозначение примерно (~)
Должно быть так, если не напутал
program raf105;
var
i,n: integer;
s: real;
begin
write('Введите N: ');
readln(n);
repeat
i:= i+1;
s:= s + 1/i;
until i = n;
writeln('S = ',s);
end.
<h3><u>PascalABC 3.4.2</u></h3>
Пробелы не расставлены верно (перед mod и после):
<span>if (i+j) mod 2=0 then a[i,j]:=i+j;</span>