Program fofgogjoj;
var
n:integer;
a,s:real;
begin
repeat
Writeln('Введите вещественное число a');
Read(a);
until a>1;
s:=0;
n:=1;
while s<a-1/n do
begin
s:=s+1/n;
Write(n:4);
n:=n+1;
end;
Writeln;
Writeln('s=',s:0:4);
<span>end.
Не советую печатать число большее 10 xD</span>
Смотрите вложение
смотрите вложение
смотрите вложение
смотрите вложение
К форматированию относятся все изменения связанные с форматом по определенному образцу, или изменения структуры текста.
Короче, да, относится.
Если нужен ответ в десятичной, переведем все числа в десятичную систему и решим простой пример.
125(8)= 85 (десятичная)
11101(двоичная) = 29(десятичная)
А2(16) = 162(десятичная)
1417(8) = 783(10)
далее решаем простой пример
85+29*162-783=4000