Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
6 декабря 2022 17:08
515
Дано натуральное число 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
Остались вопросы?
Еще вопросы по категории Информатика
Что такое система команд исполнителя алгоритмов ски...
Составьте программу, которая распечатывает полученное число справа налево. Например, если введено число 12345, программа должна напечатать 54321. В от...
Информатика решите пожалуйста...
На сервере edu.ru находится файл demo.гаг, доступ к которому осуществляется по протоколу ftp. Фрагменты адреса данного файла закодированы буквами от...
21. Каждую область на рисунке необходимо закрасить каким-то цветом так, чтобы области, имеющие общую границу, были закрашены в разные цвета. Каким н...
Все предметы 
