Меню сайта

Задача №18

Вычислить сумму 10 слагаемых 1+1/2+1/3+…+1/n.


Program for_18-

Uses crt-

Var i:integer-

s:real-

Begin

ClrScr-

s:=0-

For i:=1 to 10 do

s:=s+1/i-

Writeln(‘сумма=’,s:4:4)-

Readln-

End.

Категория: Циклы | Дата: 17.11.12

Меню раздела
Блок