Лучшие помощники
- Megamozg 2200 б
- Matalya1 1800 б
- DevAdmin 1705 б
- arkasha_bortnikov 890 б
- Dwayne_Johnson 860 б
6 декабря 2022 17:08
398
Дано натуральное число N. Вычислить: s=1/1+1/2+1/3+⋯+1/N
составить программу в Паскале
1
ответ
Var
i,n:integer;
s:real;
begin
readln(n);
for i:=1 to n do
s:=s+1/i;
writeln(s:4:2);
end.
i,n:integer;
s:real;
begin
readln(n);
for i:=1 to n do
s:=s+1/i;
writeln(s:4:2);
end.
0
·
Хороший ответ
8 декабря 2022 17:08
Остались вопросы?
Еще вопросы по категории Информатика
Методы взлома. Описание каждого взлома....
Переведите целые числа из десятичной системы счисления в двоичную: а) 89; б) 600; в) 2010...
Постройте черно-белый рисунок шириной 8 пикселей, закодированный шестнадцатеричной последовательностью 2466FF6624. если можно пошагово...
Установите соответствие между мультимедийными продуктами и сферой их применения. Мультимедийные энциклопедии Виртуальные экскурсии Система компьютер...
Перевод чисел из десятичной системы счисления в шестнадцатеричную 256 400 1234 2012...
Все предметы 
