Лучшие помощники
- Megamozg 2200 б
- Matalya1 1800 б
- DevAdmin 1705 б
- arkasha_bortnikov 895 б
- Dwayne_Johnson 860 б
6 декабря 2022 17:08
410
Дано натуральное число 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
Остались вопросы?
Еще вопросы по категории Информатика
В каких технических системах звук передается в аналоговой форме?...
Конспект на тему" что такое WWW" ...
Загадки про школу (если можно сочините сами)...
1.приведите пример информационной модели: а)ученика вашего класса б)игрока баскетбольной команды в)пациента ветеринарной лечебницы г)квартиры жилого д...
История структурное программирование...
Все предметы 
