Статистика
Всего в нашей базе более 4 327 660 вопросов и 6 445 975 ответов!

С помощью Паскаля НАЙТИ СУММУ: 1/1+1/2+1/3...1/n

10-11 класс

Wasd27l 20 авг. 2015 г., 3:42:40 (8 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Bulgakov1972
20 авг. 2015 г., 5:59:28 (8 лет назад)

program P1;
uses
crt;
var
n,i : integer;
summ : real;
begin

clrscr;

write('N = ');
read(n);

summ := 0;

for i := 1 to n do
summ := summ + 1/i;

writeln('Otvet: ',summ);

readln;
readln;

end.

Ответить

Другие вопросы из категории

Однажды один программист поместил объявление о прадаже устройства вывода звуковой информации, однако по случайности

перепутал и в объявлении было написанно о продаже маленькой собачки, декоративной породы. Разрешите путаницу и напишите , что же хотел выставить на продажу невнимательный программист.

Все 5-буквенные слова, составленные из 5 букв А, К, Л, О, Ш,

записаны в алфавитном порядке.

Вот начало списка:

1. ААААА

2. ААААК

3. ААААЛ

4. ААААО

5. ААААШ

4. АААКА

……

Какое слово следует за словом ШАЛАШ?

Читайте также

1.Дан целочисленный массив X(N). Найти сумму четных элементов массива .Если эта сумма больше заданного числа Z , то у элементов , расположенных на

нечетных местах , сменить знак на противоположный ,иначе выдать соответствующее сообщение.

2.Дан массив X(N,M) . Среди четных столбцов массива найти сумму положительных элементов

3.Найти произведение элементов каждого столбца массива принадлежащих промежутку [2,6] . Из полученных значений сформировать одномерный массив.

составить программу 1)найти сумму всех элементов массива (1до10) random. 2)сформировать массив из положительных и отрицательных элементов

от -10 до 30.найти кол-во положит и отриц элементов.найти сумму положит и произведение отриц.



Вы находитесь на странице вопроса "С помощью Паскаля НАЙТИ СУММУ: 1/1+1/2+1/3...1/n", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.