Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
6 декабря 2022 17:08
669
Дано натуральное число 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
Остались вопросы?
Еще вопросы по категории Информатика
Какой пароль стоит ставить на Интернет-ресурсе? 1)Одинаковый с логином 2)Основанный на словарном запасе 3)Длиной менее 8-ми символов 4)В котором ис...
Помогите пожалуйста...
Для генерации случайного числа из интервала [0, 1] необходимо использовать выражение *один правильный ответ random(11) random(2) random(1...
Запишите на алгоритмическом языке алгоритм представленный блок схемой Пж помогите...
Нужно написать программу проверки знания даты основания Санкт-Петербурга....
Все предметы 
