Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Amana95
26.04.2022 00:14 •
Информатика
Составить программу вычисления суммы натуральных чисел, начиная с 5 до заданного числа x (x> 5)
Показать ответ
Ответ:
лилу110
08.10.2020 00:24
Var
sum: integer := 0;
num: integer;
begin
write('Введите число n: ');
read(num);
for var k := 5 to num do sum += k;
write('Сумма: ',sum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
darinashagaeva
17.06.2020 15:31
Пироженое & выпечка 3200 пироженное 8700 выпечка 7500 сколько страниц будет найдено по за пироженое I выпечка даю,очень нужно...
jova20011p0bpf9
07.01.2022 19:08
Вс++ составить программу нахождения числа строк матрицы а(6,6), максимальный элемент которых больше р...
сашулька00001
26.02.2020 17:47
Блин ! петя, катя и сережа делают из бумаги журавликов. вместе они сделали s журавликов. сколько журавликов сделал каждый ребенок, если известно, что петя и сережа...
rustiuh
31.03.2023 05:36
Сравни государственное 17-16веков. докажи, что в россии утверждается самодержавие....
Skripp
31.03.2023 05:36
Почему в наблюдаемой реакции фенолфталеин меняет цвет два раза?...
zoeves
31.03.2023 05:36
Какие профессиональные слова используют инженеры 15 слов...
10ЛК
31.03.2023 05:36
Как сложились четыре крестовых похода ?...
Natashkasunny05
31.03.2023 05:36
Как посчитать площадь в фигуре без углов?...
Тупик101
31.03.2023 05:36
Определите информационный обьем сообщения: дело мастера боится...
ffgdfsdf
31.03.2023 05:36
Синтаксический разбар предложения! ! с самого раннего утра небо ясно, и утренняя заря не пылает , а разливается кротким румянцем....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
sum: integer := 0;
num: integer;
begin
write('Введите число n: ');
read(num);
for var k := 5 to num do sum += k;
write('Сумма: ',sum);
end.