Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
svistmi20061
03.08.2020 15:53 •
Информатика
Составить программу для вычисления значений переменной y при заданном значении n.(использовать три различных оператора цикла) y=
Показать ответ
Ответ:
hollyananas
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 оценок)
Популярные вопросы: Информатика
nf781
14.08.2021 06:22
Текст составлен с использованием алфавита мощностью 64 символа и содержит 100 символов каков информационный объем текста...
Dariya078
15.04.2022 11:39
Необходимо ввести в память компьютера текст романа А.Дюма «Три мушкетера». Одно из изданий этого романа выполнено на 590 страницах, каждая страница содержит 48 строк по...
янамурадян
29.09.2021 11:56
Дан код с номером. Определи, какой это символ: управляющий или изображаемый.Код с номером 84.изображаемый управляющийответить!...
егор1481
09.09.2020 21:36
Выберети правельный ответ ...
isanatoliy25199
19.12.2021 05:01
с информатикой!очень ...
stig228
17.07.2022 20:13
Выпишите сложные слова из отрывка произведения Алиса. Город без памяти Отрывок: Стоянка перед космовокзалом была переполнена, и Алисе пришлось минут пять кружить над ней,...
евгения406
17.07.2022 20:13
3. Четыре седьмых класса поехали на экскурсию. Когда 7А и 7Б пошли в музей, а ТВ и 70 — обедать в кафе, Марья Ивановна подсчитала, что в музее на 15 семиклассников больше,чем...
risik1205super
17.06.2022 07:07
Очень В чугунный котёл массой 20кг и объёмом 5л налили 3л воды при комнотной темературе (27°с) и поставили греться на костёр из сухих дров. Какое кол-во дров необходимо...
Valeriya2576
07.10.2021 20:22
Орфографический и пунктуационный практикум как живой архив этнической памяти ссловарное...
Манюня589
07.10.2021 20:22
1.Правовая и экономическая сфера. Влияние права на экономику. 2. Политические процессы в государстве....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.