Лучшие помощники

Megamozg 2205 б
Matalya1 1800 б
DevAdmin 1720 б
arkasha_bortnikov 900 б
Dwayne_Johnson 870 б

Показать еще

·

Информатика

6 декабря 2022 17:08

503

Дано натуральное число 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.

0

·

Хороший ответ

8 декабря 2022 17:08

Остались вопросы?

Найти нужный

Еще вопросы по категории Информатика

Информация каких видов содержится в учебнике по информатике?... перепишите программу из практической работы предыдущего урока так, чтобы интерфейс выглядел примерно следующим образом... Самостоятельная работа 1 по теме «Основы логики» 3aranne 1. Bbruerus: a） 0v1）♥（yo） b）（1~1）<0）vi C) (1→1) -(0 → 0) d） 0~1）〜1 e） 1x0x1）>1... Какую наиболее короткую формулу нужно записать в ячейку A1, чтобы вычислить среднее арифметическое значений выделенного диапазона (если бы в выделенны... Переведите целые числа из десятичной системы счисления в восьмеричную: а) 513 б) 600 в) 2010...