Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Крекир
01.06.2020 19:07 •
Информатика
Вводится одно целое число не превосходящие 104 подсчитать сумму чисел до 1 и до 104
Показать ответ
Ответ:
idkjfsk
23.06.2020 03:27
Var
a,i,n:integer
begin
Readln(a);
for i:=a to 1 do
n:=n+I;
writeln(n);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Melisaaaa
12.01.2023 02:41
Какие значения будут принимать переменная x после выполнения каждого из следующих операторов? подразумевая что а=18 b=-15 p=true if a b then x: =1 else x: =4;...
AngelinaMon
12.01.2023 02:41
Какими свойствами обладает программа (паскаль)....
555Maura555
03.01.2021 16:40
Продолжи ряд десятичных чисел: а) 11 13 15 17 б) 22 44 66 в) 91 81 71 г) 1 2 4 8...
Еденарог
24.06.2022 10:16
Как вы думаете, почему единицы измерения количества ин формации, принятые МЭК, не прижились?...
Аккаунт удален
14.02.2021 18:01
Замените знаки вопроса числами: 1) ?Кбайт = ?байт = 110592 бита2) 21Мбайт = ?Кбайт =? байт3) Гбайт = ?Мбайт = ?Кбайт4) 82byte = ?bit5) ?byte = 7992 bit...
Анастасия8383
20.11.2020 01:15
Вариант 1. 1. выберите в данном списке устройства ввода компьютера: (несколько правильных ответов) а) принтер б) монитор с) клавиатура д) мышь е) процессор ж) сканер...
yarabar
20.11.2020 01:15
Какие программы из перечисленных не относятся к прикладному программному обеспечению? а) текстовые процессоры б) обучающие программы с) антивирусные программы д)...
Dashka6969
20.11.2020 01:15
Клиент внёс в банк х рублей.каждый месяц эта сумма увеличивается на р процентов. сколько будет у клиента денег через два месяца,три месяца,через полгода?...
KrIs1girl
22.02.2022 07:07
Что означает,или как переводится слово mayflower...
Angel28648
22.02.2022 07:07
Решите в классе 24 ученика.их надо разбить на равные группы.по сколько человек может быть в этих группах?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a,i,n:integer
begin
Readln(a);
for i:=a to 1 do
n:=n+I;
writeln(n);
end.