НиканоровСалиев675
НиканоровСалиев675
20.03.2022
?>

Вычислить сумму S= 1/15+1/16+1/17+...1/n паскаль программа

Информатика
Ответить

Ответы

vps1050
vps1050
20.03.2022

var

s : real;

i,n : integer;

begin

s:=0;

readln(n);

for i := 15 to n do

s := s + 1/i;

write(s:5:2);

end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Вычислить сумму S= 1/15+1/16+1/17+...1/n паскаль программа
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

kosharikclub
Составьте программу для рисования рыбки в АВС паскаль​
Автор: kosharikclub
Лоскутова
Юношам 15, 16, 17 лет (дима, саша, сергей составить программу выбора. в программе паскаль.
Автор: Лоскутова
mileva84
Дан массив l[9]. найти сумму отрицательных элементов массива, расположенных между максимальным элементом и минимальным элементом. (язык программирования delphi)
Автор: mileva84
mnogomams47
Открой Word. (на рабочем столе – правая кнопка мыши- создать - Документ Microsoft Office Word Наберите данный текст.Основной текст: кегль: 12 pt, Arial, цвет: черный; Абзац: текст отр...
Автор: mnogomams47
Annabill1987
На клавиатуре также располагается несколько клавиш, которые изменяют значение других клавиш: - клавиша в нажатом состоянии присваивает остальным клавишам другое значение. Если её удерживают нажатой, ...
Автор: Annabill1987
sotrudnik3
Паскаль авс.net массивы ! создайте массив а [1..8] с генератора случайных чисел с элементами от -10 до +10 и выведите его на экран. подсчитайте количество отрицательных элементов массива.
Автор: sotrudnik3
maksmi
Домашнее задание Подготовь исследовательский проект по теме «Свойства геометри-ческих фигур».Тема проектаВопросы и направленияисследованияСвойствагеометрическихфигурСвойства равностороннихтреугольнико...
Автор: maksmi
Paradismebel
Выбери тему для своего проекта и создай проект в любом формате (презентация, кластер, схема, эссе, коллаж, набор правил  Проект можно выполнить на компьютере в программе, которая тебе нрави...
Автор: Paradismebel
Бражинскене_Алексей
На остановке остановились автобусе 2, 4, 8, 16.сколько видов информации несёт автобус?
Автор: Бражинскене_Алексей
forosrozhkov
Для какого из приведенных значений числа X истинно высказывание: (X < 38) и не (X < 27)
Автор: forosrozhkov
d892644813661946
Укажите агрегированный адрес группы из четырех подсетей: 172.16.16.0/24, 172.16.17.0/24, 172.16.18.0/24, 172.16.19.0/24.
Автор: d892644813661946
mihailpolehin8
Напишите, , алгоритм создания сайта, подробнее, в блокноте html
Автор: mihailpolehin8
artem032100
Втаблице запросы к поисковому серверу. для каждого запроса указан его код – соответствующая буква от а до г . расположите коды запросов слева направо в порядке возрастания количества страниц, которые...
Автор: artem032100
chaa140
Даны числа n и m. создайте массив a[n][m] и заполните его, как показано на примере. входные данные программа получает на вход два числа n и m. выходные данные программа должна вывести полученный масс...
Автор: chaa140
gaydukov5706
В программе для машины Тьюринга, содержащей команду q1a1 → q2a2П, не может содержаться команда Выберите один ответ: a. q1a1 → q3a3Л b. q2a2 → q1a1Л c. q2a2 → q2a2П d. q2a2 → q1a1П
Автор: gaydukov5706
▲