НиканоровСалиев675
?>

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

Информатика

Ответы

vps1050

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.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Вычислить сумму S= 1/15+1/16+1/17+...1/n паскаль программа
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Galiaahmatova4447
borvalmok432
Korikm
Valentina1520
astahova
kolyabelousow4059
GridnevaVNIGNI"
Melnik Kaveshnikova1746
ipKAV85
Reutskii884
restkof
shmidt
nat5555
Михайлович Гуртовая929
Карева Даниил1537