Предмет: Информатика,
автор: 0uteast
Вычислить: S=1+1/2+1/3+...+1/17
Ответы
Автор ответа:
0
var
s: real;
b: byte;
begin
for b := 1 to 17 do
s += 1 / b;
writeln(s);
end.
3.43955...
s: real;
b: byte;
begin
for b := 1 to 17 do
s += 1 / b;
writeln(s);
end.
3.43955...
Похожие вопросы
Предмет: Биология,
автор: sofender17
Предмет: Русский язык,
автор: Аноним
Предмет: Математика,
автор: sabi66808
Предмет: Математика,
автор: yano4ka2002