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

Pascal. (через операторы цикла WHILE и REPEAT) Вычислить 2/1+3/2+4/3+...+(n+1)/n

Ответы

Автор ответа: SanGreen74
0
var sum,a,n:real; 
begin 
sum:=0; 
a:=1; 
writeln('Введите n'); 
read(n); 
n:=n+1; 
repeat 
sum:=sum+(a+1)/a; 
a:=a+1; 
until a=n; 
writeln(sum); 
end.
Похожие вопросы
Предмет: Математика, автор: avangard656
Предмет: Химия, автор: Mosya4897
Предмет: География, автор: Деффчонки003