Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Amerilove57
31.12.2021 08:44 •
Информатика
C: составить программу и блок схему определяющую сумму первых n натуральных чисел
Показать ответ
Ответ:
khakimail
27.06.2020 10:44
Uses crt;
var i,n,sum:integer;
begin
read(n);
i:=1;
sum:=0;
while i<=n do
begin
sum:=sum+i;
i:=i+1;
end;
writeln(sum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Polinakey9283773744
16.04.2022 13:50
Чему равна мощность алфавита, используемого для записи , состоящего 256 символов и имеющий объём 2Кбайт...
Milokgre
23.05.2020 05:31
Разработайте блок-смеху для нахождения площади треугольника по формуле s=1/2×a×b×sin a...
anna1866
16.04.2022 18:04
Почему когда я включаю браузер firefox вылезает вот это? как это можно исправить?...
милана200229
25.03.2020 23:38
Напишите программу которая вычисляет площадь и периметр прямоугольника по длинам двух его сторон...
ramn
14.07.2022 12:00
Найдите числа 5значного числа и выведите их в обратном порядкепо типу того, как на картинке, решите, ...
qpdgjekelxnvi
14.01.2023 06:02
Нужен 1 сор по информатике 6 класс 4 четверть может кто писал? ...
000конфета000
18.01.2023 08:49
Дом состоит из n-го количества прямоугольных комнат введите значение длины и ширины каждой комнаты,найдите их площадь и общую сумму площадей всех комнат...
лика03481
09.02.2021 03:34
Информатика сор за 4 четверть 6 класс 1 сор скиньте...
Masha36127
20.03.2022 13:55
С# 1) цикл while дано число. визначити, чи є це число степенем двійки. 2) цикл do/while скласти програму-гру «більше-менше». комп’ютер генерує випадкове ціле число,...
AripovZ
16.05.2022 16:06
Нужно ! напишите процедуру, которая будет переводить градусы цельсия в градусы фаренгейта. сделайте так, чтобы процедура округляла числа до ближайшего целого. протестируйте...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var i,n,sum:integer;
begin
read(n);
i:=1;
sum:=0;
while i<=n do
begin
sum:=sum+i;
i:=i+1;
end;
writeln(sum);
end.