Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
grinanovatana2
24.05.2023 09:05 •
Информатика
Дано натуральное число n.составить программу нахождения суммы всех чисел от 1 до n.паскаль.
Показать ответ
Ответ:
Аnюtоchкa
14.08.2020 21:56
Var
N:integer;
S:real;
Begin
Write('N = ');
ReadLn(N);
S:=N;
For N:= 1 to N-1 do
S:=S+N;
WriteLn('S = ',S);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
svetlana485
17.07.2020 13:05
Составьте программу для pascal abc: в пачке сигарет (20 штук) содержится примерно 3,6 граммов смолы, которая осаждается в лёгких курильщика. сколько смолы осядет в...
sicrettry
10.09.2022 12:16
Найдите объем текста в Кбайтах, если известно, что в нем 10 страниц, а на каждой странице по 512 символов, каждый из которых кодируется одним байтом....
Тетяна2401
07.04.2021 18:10
Задані числа N, A, B, C, D і послідовність N цілих чисел X1, X2, X3, … XN (A Напишіть програму, яка а) вводить вхідні дані з клавіатури; б) обчислює добуток тих кратних...
sigaretta
09.03.2022 22:50
Уточки. Как известно, при разработке и отладке программ большую могут оказать игрушечные жёлтые уточки, поэтому Денис собрал большую коллекцию жёлтых уточек. Коллекция...
jumaev1998
14.09.2020 06:05
1. измените программу из 2 таким образом, чтобы, при необходимости, можно отказаться от выполнения теста и корректно выйти из программы (используйте оператор while..do)....
dedpul23
09.06.2023 09:07
1. измените программу из 2 таким образом, чтобы, при необходимости, можно отказаться от выполнения теста и корректно выйти из программы (используйте оператор while..do)...
ffffffffff444
14.01.2020 20:39
Определите значения переменной а после выполнения алгоритмоа: а: = 16 b: = a mod 10 а: = b+а...
hekaterina0606
01.05.2020 12:31
Привкт всем ! умозаключение из 3-х посылок отвечу взаимно...
AnitaGo
29.06.2020 09:17
У другій половині третього століття нашої ери посилилися набіги...
PrinssesBublGum1337
07.08.2021 06:51
3 сынып ішкі жиын тез шығарып бере аласыздарма...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
N:integer;
S:real;
Begin
Write('N = ');
ReadLn(N);
S:=N;
For N:= 1 to N-1 do
S:=S+N;
WriteLn('S = ',S);
End.