Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
френки9
08.05.2021 20:50 •
Информатика
Составить и реализовать на языке программирования алгоритм с использованием оператора цикла while. вычислить сумму s=2/3+3/4+4/5+…n-1/n (значение переменной n вводится с клавиатуры). рекомендуемый вид экрана: введите значение n:
Показать ответ
Ответ:
PolinaRa1610200710
07.07.2020 23:50
var
s: real;
i, n: integer;
begin
i := 3;
readln(n);
while (i <= n) do
begin
s := s + (i - 1) / i;
inc(i);
end;
writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
masha91672
13.11.2021 21:40
Введите наибольшее из данных чисел (программа должна вывести ровно одно целое число). free pascal 2.4.4...
veronikak3602
04.06.2022 16:37
Составьте программу поиска чаще всего встречающегося элемента массива с(м,м)...
Treed1
21.04.2020 22:42
Нужно составить код программы на паскаль по блок-схеме....
Alung
03.09.2021 21:22
3. Раскрась и заполни таблицу преобразуй данные из одного вида в другой (графические в текстовые).Графические данныеТекстовые данныеЭто рисунок. На рисункедевочка.ЭтоНа...
alexutkin22241
17.03.2020 07:10
Текст, набранный на компьютере, занимает 5 страниц. На каждой странице размещается 30 строк и по 70 символов в строке. Какой объем памяти (в Кбайт, округлить до десятых)...
ASkrpt
11.02.2020 00:41
Какие существуют режимы программирования? * ИнтерактивныйПроцедурныйОконныйПрограммныйИнформационныйсправочный...
Aizere1111
21.09.2021 05:39
10. Напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое чисел, кратных 8, или сообщает, что таких чисел нет (выводит «NO»)....
natvasilya16
04.12.2021 11:28
митоз отличается от мейоза: - образованием веретена деления - отсутствием бивалентов - скоростью протекания - наличием прометафазы...
armanpozitiva
04.01.2021 07:36
Площадь меньшего круга равна 48см2. Отрезок AB = 2см.Значение числа π≈3.Определи площадь большего круга....
rar18
04.01.2021 07:36
Нарынқұм зауалы əдеби үйірме бойынша шығармаға талдау жасай отырып əдеби эссе комек керек керек болп тур ед...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
s: real;
i, n: integer;
begin
i := 3;
readln(n);
while (i <= n) do
begin
s := s + (i - 1) / i;
inc(i);
end;
writeln(s);
end.