Ответ:
древнеегипетская система счисления
Объяснение:
древнеегипетская система счисления относится к непозиционной системе счисления
Var a,l,s:real;
Begin
Read(a);
S:=1+1/2;
L:=2;
While s>=a do
Begin
Writeln(s);
L:=l+1;
S:=1+1/l
End
End.
Поскольку у меня ужасный почерк, расшифрую комментарии:
- Символ ≠ можно заменить на <>
- Выводом послужит логический результат сравнения переменной r со значением 2