Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
KarinaFelton
11.03.2022 07:15 •
Информатика
Написать в паскале: for s=1+1/2+1/3+1/4+1/5
Ответ:
erik09hfilya
01.09.2020 06:51
Var
S:real;
n:integer;
Begin
S:=0;
Write('n = ');
ReadLn(n);
For n:= 1 to n do
S:=S+1/n;
WriteLn('S = ',S);
End.
n = 5
S = 2.28333333333333
0,0
(0 оценок)
Популярные вопросы: Информатика
VitaKoroleva851
14.09.2020 22:24
Шестнадцатеричное число #4d в десятичной системе счисления это43, 77, 177, 176?...
Dasha2038
09.06.2021 05:05
Какие операции можно выполнять над окнами...
TigrNavigator322
09.06.2021 05:05
Распределить слова на две группы: общие понятия и единичные. или объясните что озночают общие и единичные понятия. вот слова: число,столица россии,учебник,наука,житель...
igcifxitsizoufzoyuc
06.11.2020 01:14
Установите соответсвие между функцией и её назначением ...
Элиманго
05.12.2020 08:53
5. Дан код программы. Что будет выведено в результате её выполнения при a=45.7? *Python 3.4.0: example_if.py - F:/examplevil.pyFle Edt Format Bun Options Windows...
артур631
19.04.2022 19:18
Я 6 кллас просто сразу говорю...
minimym22
06.01.2022 16:53
Периметр рівнобічної трапеції 40 см,середня лінія дорівнює 12 см, знайдіть бічну сторону трапеції...
zwezdael
06.01.2022 16:53
Используя статьи о музее М. Ю. Лермонтова в Москве (раздел «Литературные места России») и ресурсы Интернета, подготовьте заочную экскурсию по музею...
Yulasha22
17.07.2022 12:48
2-(5 в квадрате) = ? я думаю 27 а у вас???...
alisabeletzkay
19.08.2021 21:08
Каталог самого верхнего уровня называется 1) дерево 2)корневым каталогом 3)логическим разделом 4)файловой структурой...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
S:real;
n:integer;
Begin
S:=0;
Write('n = ');
ReadLn(n);
For n:= 1 to n do
S:=S+1/n;
WriteLn('S = ',S);
End.
n = 5
S = 2.28333333333333