Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Yrbаn
29.10.2022 08:44 •
Информатика
Написать программу, которая вычисляет сумму первых n натуральных чисел.( составьте программу с while)
Показать ответ
Ответ:
N1R2
08.10.2020 14:35
Program n1;
var n,sum,i: integer;
begin
readln(n);
i:=1;
while i<=n do
begin
sum:=sum+i;
i:=i+1;
end;
write(sum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
nastyakholod92
23.04.2021 15:25
Установите соответствие типа данных с егоописанием DATETIME...
пппп97
01.03.2021 14:46
Составьте программу, определяющую, лежит ли точка с указанными координатами внутри квадрата с углами (0,0) и (а1, b1)....
лев1110
08.01.2020 00:46
Найдите значение переменных,если это возможно. Учтите,что число 7.0 является вещественным т.к оно имеет дробную часть,хотя и равную нулю. Операции MOD и DIV можно...
gashuna
22.11.2022 06:56
сделать тест Очень надо Заранее за ответы...
shydik37
30.03.2023 19:06
бл ответы: 1)ссылки 2)панель задач 3)задачи 4)главное меню...
patimatgemmamailru
08.09.2022 04:07
Выражение 28ab+(2a-7b)^2 и найдите его значение при a = корень из 15, b = корень из 8. решите, , поэтапно. 20 . с:...
sdoleg2011
10.07.2020 17:48
Чему равна сумма корней квадратного уравнения: 2x^2−3 x−8 =0...
Tawerpro
10.09.2020 21:01
Дайте правильные ответы на эти тесты на території якої області народився іван франко? а. львівської. б. черкаської. в. київської. г. івано-франківської. 2. чому...
Лапушка150
10.09.2022 05:08
35 . нужна по ! при какой температуре будет кипеть 22%-й раствор н2so4, если α=70%? ке(воды)=0,52 (к·кг)/моль...
Yfnfif2617
10.09.2022 05:08
Провести полный термодинамический анализ для реакции 4fes2+11o2=2feo3+8so2...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var n,sum,i: integer;
begin
readln(n);
i:=1;
while i<=n do
begin
sum:=sum+i;
i:=i+1;
end;
write(sum);
end.