Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
YarMax
01.02.2020 17:08 •
Информатика
Написать программу на языке паскаля для вычисления s=1^1+2^2+3^3++n^n
Ответ:
шрвлап
13.06.2020 04:49
var
n, i: integer;
s: real;
begin
readln(n);
for i := 1 to n do
s := s + exp(i*ln(i));
writeln(s);
end
0,0
(0 оценок)
Популярные вопросы: Информатика
sychewaya8310
25.03.2021 07:20
Вmaple вычислить значение производной в точке x = 0, имея в виду, что f(0) = 0: f(x)=ln(1-sin(x³sin(1/x))...
Eliiiii099
20.12.2022 12:53
Найди конкурс проектов по информатике, буду очень благодарен ! Нужен любой конкурс проектов по информатике для участия в группе. + должен проходить через неделю -...
Ясомолётик
24.03.2023 16:44
ОБЧИСЛІТЬ ЗНАЧЕННЯ ФУНКЦІЇ ЕСЛИ(1+3 5-2; 1; 2 )...
мединалуна
13.11.2022 02:41
Решите задачи в Exel. ответ либо в таблице либо цифрами . 1 решение это пример ....
Сангали
10.08.2020 04:02
3. определите результат выполнении фрагмента программы: j : = 0; s : = 0: repeat j: =j+1; s : = s+2*j: until j=4; writeln (s);...
egorkapopec
10.08.2020 04:02
2. какое значение получит переменная а, при вычислении выражения: а: = sqrt(4)+ sqr(-5+7);...
Diman66666
19.05.2020 10:52
1)найдите и зачеркните лишнее слово группе: (клавиатура,мышь,сканер,акустические колонки.); (принтер,монитор,сканер,наушники); (графопостроитель,джойстик,принтер,монитор);...
ladyalinaELIZ
19.05.2020 10:52
Вывести на экран квадраты натуральных чисел от 1 до 10...
gshshagag
21.05.2020 22:44
Дано a,b найти максимальное (программа должна быть типа линейного)...
gamerallgames3457643
10.12.2020 22:18
контрольный диктант над соломенными крышами2 разбор...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var
n, i: integer;
s: real;
begin
readln(n);
for i := 1 to n do
s := s + exp(i*ln(i));
writeln(s);
end