Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
AnnaFruzanna
02.08.2021 04:51 •
Информатика
Написать программу, которая вычисляет сумму первых n целых положительных чисел. количество суммируемых чисел должно вводиться во время работы программы. написать ее с цикла for..to..do..
Показать ответ
Ответ:
NikolaAdamova
12.06.2020 01:54
var c,a,n,i:longint;
begin
read(n);
read(a);
c:=a;
for i:=2 to n do
begin
read(a);
c:=c+a;
end;
write(c);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
julka181
30.08.2020 22:54
Упражнение 1. Вычислить длину окружности, площадь круга и объем шара по за-данному радиусу R = 1, 1.5, …6 м. Отчет представить в виде рабочих листов, содержащих условие задачи,...
letsplei1212
06.07.2022 02:30
У магазині обслужили за день Н (N-200) покупців, кожен з яких витратив на покупки не більше за К (К 500) гривень. Визначити денний прибуток магазину і середню суму споживчого...
nick121201
15.12.2020 11:11
A. Площадь - 2 Ограничение времени 2 секундыОграничение памяти 64MbВвод стандартный ввод или input.txtВывод стандартный вывод или output.txtС клавиатуры вводится ширина прямоугольника....
миларыбка
10.06.2020 14:24
Вариант №4 1. Опишите каждый фрагмент программы на естественном языке: a) Var D: array[1..9] of integer; b) for i:=1 to 9 do D[i]:=random(12)-3; c) for i:=1 to 9 do write...
Bong144
24.12.2020 21:28
Комектесиндерши отинем,тез керек болып тур...
Marvarick
13.04.2020 13:19
Определите сколько грамма и моля глюкозы, если вода 200г и оксид углерода 200г заранее за ответ...
nikolaenko0473
08.10.2020 04:35
Нужно сделать таблицу,столбики которой- «анализ и оценка в последствие деятельности человека в экосистемах, влияние собственных поступков на живые организмы и экосистемы»...
glo2
26.12.2021 20:06
1. определить благоприятную черту эгп казахстана2. определить неблагоприятную эгп австралии...
orliniyglassoyccc0
09.03.2020 22:55
Children drank milk yesterday все типы вопросов: общий, альтернативный, разделительный, к подлежащему специальный составьте предложение i, last, seaside, summer , whent, the,...
Клямпер
11.01.2023 22:51
Характеристики любимого героя.1. вступление. место, занимаемое героем в произведений.ii. основная часть. 1.общественное, семейное положение героя, обстановка, в ко-торой он...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var c,a,n,i:longint;
begin
read(n);
read(a);
c:=a;
for i:=2 to n do
begin
read(a);
c:=c+a;
end;
write(c);
end.