Ответы
Ответ дал:
0
var
a:integer;
b:real;
begin
for a:=1 to 10 do b:=b+1/a;
writeln(b);
end.
Похожие вопросы
2 года назад
2 года назад
2 года назад
2 года назад
8 лет назад
8 лет назад