Предмет: Информатика, автор: karinagfy2345

Дано натуральное n. Вычислить
2/1+3/2+4/3+...+n+1/n. ПОМОГИТЕ!!!

Ответы

Автор ответа: hello93
4

program summa;

var

s:real;

i, n : integer;

begin

writeln('Введите число n= ');

read(n);

s:=0;

for i:=1 to n do  

 s:=s+(i+1)/i;

writeln('Сумма: ',s:4:2);

end.

Похожие вопросы
Предмет: Геометрия, автор: irinazelinska128
Предмет: Математика, автор: gorbachevaRegina2005