Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
andrievskiyvitaliy
11.02.2023 00:22 •
Информатика
Составьте алгоритм вычисления суммы всех натуральных чисел, не превышающих заданного натурального числа n. проверьте алгоритм трассировкой. напишите программу на паскале.
Показать ответ
Ответ:
geniip
28.06.2020 12:11
Var a,k,n:integer;
begin
read(n); a:=0;
for k:=1 to n do a:=a+k;
write(a);
end.
0,0
(0 оценок)
Ответ:
zaharovvlad1337
28.06.2020 12:11
Program asd;
USES crt;
Var i,j,n:integer;
BEGIN
Clrscr;
Writeln('Vvedite chislo: ');
Read(n);
j:=0;
For i:=1 to N do
j:=j+i;
Writeln(j);
END.
0,0
(0 оценок)
Популярные вопросы: Информатика
fefmweoiwefio
25.01.2020 21:13
A:=1, b:=1While a =32 do a:=a*2, b:=b*aWrite (b) ...
ququetoya
06.04.2020 00:53
Что входит в элементарный состав компьютера?...
suchilinaelya
09.10.2022 06:05
Види САПР одягу до ть будь ласка...
куцев
15.06.2020 16:44
Спо программированию , надо решить не по паскалю , а просто . 1)треугольник задан длинами своих сторон.найти длины его медиан 2)известны координаты двух смежных...
Katzkotareva
17.08.2021 08:44
Даю всё что есть Внимательно прочитай задание. Отметь правильный ответ (ответы) галочкой. В во может быть несколько правильных ответов (и 2, и 3). ставится только...
egorowasnezhana
26.11.2021 07:11
4. При общем анализе крови врач первым делом обращает внимание на количество сахара. С чем связано пристальное внимание к этому веществу? Как можно объяснить изменение...
yadianamelnik
26.11.2021 07:11
ів Через середину M сторони AD квадрата ABCD до його площини проведений перпендикуляр MK завдовжки 6√3 см. Сторона квадрата дорівнює 12 см. Обчисліть площу трикутника...
lera08862
17.08.2021 08:44
Решите тригонометрическое уравнение 6 tg x – 14ctg x + 5 = 0...
alsu7691
29.10.2020 23:26
Подумайте.Если в течение 10 лет на одном поле будут выращивать пшеницу, но при этом не вносить удобрения, давать земле отдохнуть, проводить севооборот, сможет ли...
hameleon5
29.10.2020 23:26
Определи, чем осложнены предложения. Спиши, расставь недостающие знаки препинания. Вся усадьба состояла из четырёх срубов разной величины а именно из флигеля конюшни...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
read(n); a:=0;
for k:=1 to n do a:=a+k;
write(a);
end.
USES crt;
Var i,j,n:integer;
BEGIN
Clrscr;
Writeln('Vvedite chislo: ');
Read(n);
j:=0;
For i:=1 to N do
j:=j+i;
Writeln(j);
END.