Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
6 декабря 2022 17:08
680
Дано натуральное число 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
Остались вопросы?
Еще вопросы по категории Информатика
Пжжжжжж тут изи Какие форматы можно использовать для хранения растровых рисунков в режиме истинного цвета (True Color)? 1) BMP 2) GIF 3) JPG 4) PN...
Напишите программу, которая позволит проверять пароль на сложность. Проверку пароля следует проводить по таким критериям: 1. Длина: от 5 символов....
fоr i in rаngе( c, 42, d): рrint ( i, end=" " ) В результате работы этого фрагмента программы на эк...
Напишите на языке Python программу которая получает с клавиатуры натуральное число и определяет, сколько раз в его десятичной записи встречается цифра...
Алфавит некоторого языка состоит из 64 символов. За сколько секунд передать текст из 2000 символов. если скорость передачи данных 50 байтов в секунду....
Все предметы 
