В ходе лабораторных и математических исследований я выяснил, что эта ерунда нафиг не нужна в современной информатике (только если вы не работаете преподом)
Лена -1;2;3;4;5;6 Прошла в комнату -Да
Саша-1;2;3;4;6; Прошел в комнату- Нет
101101110= 556 (Р=8), 10100100= 244 (Р=8) .... Вроде так
var
n : integer;
s : real;
begin
write('введите n ');
readln(n);
for var i := 10 to n do s += 1/i;
writeln('s = ', s);
end.
n должно быт n >= 10
Это цифра в двоичной системе счисления