Войти Регистрация Спроси ai-bota

Найти сумму всех натуральных чисел не превосходящих число m

Ответ:

epifya

05.10.2020 21:28

Program n1;
var sum,m,i: integer;
begin
readln(m);
for i:=1 to m do sum:=sum+i;
write(sum);
end.

0,0(0 оценок)

Популярные вопросы: Информатика

annachernaya04ow7wxu

11.11.2022 13:39

1) Перечислите прикладные программы, которыми вы пользуе- тесь, с указанием их функций. 2) Какие системные программы обязательны для работы ком- пьютера? 3) Каков...

89825518635e

08.09.2020 11:19

Таблица истинности 4 задание...

perrezz

16.04.2022 10:36

Информатика 5 класс 1 какие бывают вирусы и что ожидать от их работы...

vladimirshmele1

22.07.2021 12:08

10) двумерный массив: найти произведение четных элементов двумерного массива....

Витуся091

22.07.2021 12:08

Как называют информацию достаточную для решения поставленной ?...

Yarik200825

22.07.2021 12:08

Реши задан числовой массив, состоящий из 14 элементов. найдите произведение всех отрицательных элементов, больших минимального...

лол1635

22.07.2021 12:08

Какое условие из предложенных может стоять вместо знака вопроса,если a равно 8,а результат выполнения-57?...

Вита1908

22.07.2021 12:08

Задан числовой массив, состоящий из 6 элементов. посчитать и вывести на экран среднее арифметическое всех чисел, больших 10....

ренат76

22.02.2023 02:12

Логическое выражение а∧¬ aравносильно a. а b. 1 c. 0...

lolkek6969

29.01.2023 23:11

Отметьте на координатной плоскости точеки М (1;2)...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку