Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
ustinlox
16.05.2021 11:33 •
Информатика
Составить программу для вычисления значений переменной y при заданном значении n.(использовать три различных оператора цикла) y=
Показать ответ
Ответ:
TheBrainCatty
05.10.2020 18:00
Var
y:real;
n,i:integer;
Begin
Write('n = ');ReadLn(n);
{Цикл с параметром:}
y:=0;
For n:= 1 to n do
y:=y+(1/n);
WriteLn('y = ',y);
{Цикл с постусловием:}
y:=0;
i:=1;
Repeat
y:=y+(1/i);
i:=i+1
Until i>n;
WriteLn('y = ',y);
{Цикс с предусловием:}
y:=0;
i:=1;
While i<=n do
Begin
y:=y+(1/i);
i:=i+1
End;
WriteLn('y = ',y)
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
какаха105
26.07.2020 06:13
Дано действительное число r вида nnn.ddd (три цифровых разряда в целой и дробной частях). поменять местами дробную и целую части числа и вывести полученное значение числа....
dimasergeenko
26.07.2020 06:13
Что такое информационная деятельность ? опиши свою информационную деятельность в учебе ....
sadnaadina00
24.10.2022 06:14
Какое число получится, если сложить 70 и 227 в 8-битной арифметике без знака? (В ответе введите десятичное число.)...
Блейк51
11.03.2023 15:24
Практическая работа √3...
marsidd
13.04.2023 11:58
216.что будет нарисовано после выполнения чертежником алгоритма*использовать* чертёжник*алг* рисунок*нач**поднять перо*сместиться в точку (2,1)*опустить перо*фигура*поднять перо*сместиться...
ленок209
24.12.2022 09:38
У исполнителя Квадратор две команды, которым присвоены номера: 1. возведи в квадрат 2. прибавь 3 Первая из них возводит число на экране во вторую степень, вторая увеличивает его...
Liova23
05.02.2023 05:26
Есть чат надо добавить ИНТЕРФЕЙС (Элементы ввода и вывода текста, использование трех кнопок, 4 label) Python...
кфг
11.01.2021 03:56
Форма организации действий, при которой в зависимости от выполнения или невыполнения некоторого условия совершается либо одна, либо другая последовательность действий, называется…...
АНДрЕЙ12277777
11.12.2021 07:14
Составить сочинение на тему мы дети родной земли подсказки республика...
Sofwork
11.12.2021 07:14
Как изобразить в масштабе расстояние 700 метров , 1800метров...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
y:real;
n,i:integer;
Begin
Write('n = ');ReadLn(n);
{Цикл с параметром:}
y:=0;
For n:= 1 to n do
y:=y+(1/n);
WriteLn('y = ',y);
{Цикл с постусловием:}
y:=0;
i:=1;
Repeat
y:=y+(1/i);
i:=i+1
Until i>n;
WriteLn('y = ',y);
{Цикс с предусловием:}
y:=0;
i:=1;
While i<=n do
Begin
y:=y+(1/i);
i:=i+1
End;
WriteLn('y = ',y)
End.