Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
232привет
13.03.2020 14:35 •
Информатика
Составьте программу на языке паскаль которая высчитывает сумму цифр 1/2+1/3+1/4+/n
Показать ответ
Ответ:
yanoobhelpme
16.09.2020 08:51
Var i,n:integer;
c:real;
begin;
readln(n);
for i:=2 to n do
c+=1/i;
writeln(c);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Andriashka
05.10.2021 22:39
Хлп! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ...
АнимешникИз2К17
07.02.2023 15:18
Какие программы используются для подготовки документации игры?...
Iraeuroset3
28.03.2020 10:15
1. Укажите правильную последовательность построения прямоугольного параллелепипеда со стенками 45 см и 80 см, боковыми стенками - 90 см. а Марату построить параллелепипед....
DikONd
02.02.2021 03:06
Как разложить число 189 в двоичный код и с пояснениями ) 189 - 128 = 61 61 - 32 = 29 29 - 16 = 13 13 - 8 = 5 5 - 4 = 1 189 = 1 * 128+ 1 * 32+ 1 * 16 + 1 * 8 + 1 * 4 =...
nastyushanaumenko
05.07.2021 16:00
сделать контрольную по информатике заранее...
lewaq
19.08.2020 16:10
Информатика. Массивы. Нужно написать программы. Желательно две, но можно и одну, буду очень благодарна!!...
yMHNk1
01.06.2021 11:31
Найдите произведение натуральных чисел от 1 до n ( с алгоритма )...
плрол
13.04.2022 23:43
Вчем заключается смысл третьего закона менделя?...
333unicorn333
13.04.2022 23:43
Сумма двух неравных сторон прямоугольника 6см.изобрази этот прямоугольник,если каждая его сторона выражается целым числом сантиметров.сколько таких прямоугольников можно...
yanaolok
13.04.2022 23:43
Какой объем метана газа при н.у получится при реакции 24 г углерода с водородом газа?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
c:real;
begin;
readln(n);
for i:=2 to n do
c+=1/i;
writeln(c);
end.