МУНИЦИПАЛЬНОЕ БЮДЖЕТНОЕ ОБЩЕОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ
ФИЗИКО-МАТЕМАТИЧЕСКОГО ПРОФИЛЯ
«УЧЕБНО-ВОСПИТАТЕЛЬНЫЙ КОМПЛЕКС «ИНТЕГРАЛ»
ГОРОДА ЕВПАТОРИИ РЕСПУБЛИКИ КРЫМ»
ИНФОРМАЦИЯ
Администрация ЕУВК «Интеграл» объявляет о приеме детей в 1-е классы на 2024-2025 учебный год.
Приём заявлений будет осуществляться с 1 апреля 2024г.
В 2024-2025 учебном году школа план...
Приказ о введении в деятельность школы системы "Электронный журнал"
Приказ об отмене бумажных журналов
Приказ об утверждении положения о порядке проведения текущего контроля успеваемости и промежуточной аттестации обучающихся
Приказ об отмене веса отметок
Положение о порядке проведения текущего контроля успеваемости и промежуточной аттестации
Положение о ведении электронного журнала успевае...
Результаты независимой оценки качества образования в ЕУВК «Интеграл» за 2020 год
Организация проведения независимой оценки качества осуществления образовательной деятельности (НОКО)
ОФИЦИАЛЬНЫЙ САЙТ для размещения информации о государственных (муниципальных) учреждениях
Вы можете оставить свой отзыв о работе нашего учреждения на официальном сайте для размещения информации о государстве...
Циклы с заданным числом повторений
- Просмотров: 8434
- Подписаться на обновления
- Печатать
- Поделиться
Циклы с заданным числом повторений
Вычислить значение суммы или произведения числовой последовательности.
1. Дано натуральное число N. Вычислить :
S=1+1/2+1/3+1/4+...+1/N
Решение:
program rabota_3_4_1;
var i,s,n: real;
begin
writeln('Введите N');//Выводим на экран сообщение "Введите N"
readln (N);// Вводим произвольное целое число
i:=1; // Значение дробной части слагаемого
s:=0; //Значение сумма
while i<n do // условие для выполнеия цикла пока i меньше произвольного целого число (n)
begin // начало цикла
s:=s+(1/i); // сумма увеличивается
i:=i+1; // дробная часть слагаемого увеличивается на 1
end; // конец цикла
writeln(сумма = , s); //вывод суммы
end. // конец программы