Предмет: Информатика,
автор: rssrrr96
Pascal. (через операторы цикла WHILE и REPEAT) Вычислить 2/1+3/2+4/3+...+(n+1)/n
Ответы
Автор ответа:
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.
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.
Похожие вопросы
Предмет: ОБЖ,
автор: olvan7
Предмет: Алгебра,
автор: nini1072
Предмет: Математика,
автор: avangard656
Предмет: Химия,
автор: Mosya4897
Предмет: География,
автор: Деффчонки003