Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
Gghfv
14.10.2022 01:35 •
Информатика
Составить программу вычисления суммы всех чисел в интервале от 1 до 1000
Ответ:
Miliafert
17.09.2020 07:41
Var i,k:integer;
begin;
for i:=1 to 1000 do
k:=k+i;
writeln(k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
landeshforever
14.12.2021 13:56
В компании под названием ProTeam произошёл ребрендинг и теперь она называется TeamPro. В программе представлен документ со старым названием компании. Напиши программу,...
Андрей4е6
31.05.2023 09:03
С PYTHON 1 Табулирование заданных значений. Выполним задания, чтобы ввод данных и вывод результатов осуществлялись в файл....
Hwasooyeon
21.04.2020 12:47
Рассчитайте объём видеопамяти, необходимой для хранения графического изображения, занимающего весь экран монитора с разрешением 1420 x 1200 и палитрой из 65 536 цветов...
romazan4
17.02.2020 02:57
В каких областях используется 3Д-моделирование?...
sdamna5uveren
17.04.2022 00:49
Сколько кодов можно составить из 3 бит? сколько надо бит, чтобы можно было составить 8 разных кодов?...
фелекс54
17.04.2022 00:49
Дана площадь квадрата. составьте программу для его сторон и периметра....
teta89p016as
17.04.2022 00:49
Дано два числа.если числа четны,то вычислите их произведение,если числа не четны,то их сумму,в остальных случаях вычислите разность этих чисел....
Didasret
17.04.2022 00:49
Метеостанция. написать программу для расчета среднесуточной температуры, если температура утренняя, дневная и ночная вводится оператором ввода....
ира1288
18.05.2020 00:42
Pascal abc. 1. дано вещественное. наити среднее арифметическое чисел, целой и дробной части. 2. вычислить значение аргумента если x 0, x: =sqr(x), в противном случае...
Enweys
11.08.2021 11:42
Найти производную под номером 1 все что есть...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin;
for i:=1 to 1000 do
k:=k+i;
writeln(k);
end.