Составьте программу Pascal для решения задачи: Используя формулу суммы членов арифметической прогрессии, найдите сумму всех натуральных чисел от 1 до М. Значение М задайте путем ввода с клавиатуры самостоятельно.
«Составьте программу Pascal для решения задачи: Используя формулу суммы членов арифметической прогрессии, найдите сумму всех натуральных чисел от 1 до М. Значение М задайте путем ввода с клавиатуры самостоятельно.»
- Информатика
Условие:
Составьте программу Pascal для решения задачи:
Используя формулу суммы членов арифметической прогрессии, найдите сумму всех натуральных чисел от 1 до М.
Значение М задайте путем ввода с клавиатуры самостоятельно.
Решение:
Текст программы
Var a1, an, d, m, s, i: integer;Begin write('m = ');readln(m); a1:=1; s:=a1; For i:=2 to m do Begin an:=a1+1; a1:=an; s:=s+a1; End; writeln('Сумма = ',s);E...
Похожие задачи
Не нашел нужную задачу?
Воспользуйся поиском
AI помощники
Выбери предмет
S
А
Б
В
Г
И
К
М
П
- Правоохранительные органы
- Пожарная безопасность
- Парикмахерское искусство
- Природообустройство и водопользование
- Почвоведение
- Приборостроение и оптотехника
- Промышленный маркетинг и менеджмент
- Производственный маркетинг и менеджмент
- Процессы и аппараты
- Программирование
- Право и юриспруденция
- Психология
- Политология
- Педагогика
С
Т
- Трудовое право
- Теория государства и права (ТГП)
- Таможенное право
- Теория игр
- Теория вероятностей
- Теоретическая механика
- Теория управления
- Технология продовольственных продуктов и товаров
- Технологические машины и оборудование
- Теплоэнергетика и теплотехника
- Туризм
- Товароведение
- Таможенное дело
- Торговое дело
- Теория машин и механизмов
- Транспортные средства
Ф
Э