Pascal. (через операторы цикла while и repeat) вычислить 2/1+3/2+4/3++(n+1)/n
znanija144
2
16.07.2019 08:00
1
Другие вопросы по теме Информатика
liana5101
05.02.2021 12:38
Alimmmmm
05.02.2021 12:35
гагарин9
05.02.2021 12:34
Popopoghdhz
05.02.2021 12:27
pastor741
05.02.2021 12:26
kuzmin06
05.02.2021 12:24
026k
05.02.2021 12:09
shabralievaaimp03wgf
05.02.2021 12:07
Популярные вопросы
- Сколько будет стоить печенье после 12%-го повышение цен ,если раньше...
3 - 25 ! ! не сложно! укажите разность 1/4-1/5. a) 1/9; б) 2/9; в) 9/20...
3 - Разложите на множители : 1)900-81к^2 2)16x^2-121y^2 3)b^2c^2-1 4)1/4x^2-1/9y^2...
2 - Напишите сочинение на тему вода в жизни человека...
1 - Взрослое растение ягеля достигает 15 метров высоты иногда 20 сантиметров...
2 - Какие глаголы можно употреблять вместо слова быть ?...
2 - Вопросы по произведению тупейный художник...
2 - Выполните сложение 9 целых 5/18+6 целых 1/12 !...
3 - Составьте словосочетания с глаголами расправить- расправиться...
2 - Показ спектакля по телевизору занял 40 мин. из этого времени 5% ушло...
3
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.