Написать программу, вычисления значения выражения: 1+1/2+1/3+1/4+⋯+1/10
Ответы на вопрос
Ответил Анжой
0
var
a:integer;
b:real;
begin
for a:=1 to 10 do b:=b+1/a;
writeln(b);
end.
Новые вопросы