Вычислить сумму S= 1/15+1/16+1/17+...1/n паскаль программа

hamov1408p06m04 hamov1408p06m04    3   13.02.2021 17:51    1

Ответы
rlicSosanex rlicSosanex  15.03.2021 18:02

var

s : real;

i,n : integer;

begin

s:=0;

readln(n);

for i := 15 to n do

s := s + 1/i;

write(s:5:2);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика