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

Определить сумму всех чисел от n до m.

Ответ:

vikamolchanova1

19.08.2020 13:38

На языке паскаль
program summa;

var
n, m, i, sum: integer;
begin

write (' введите N: '); readln (n);
write (' введите M: '); readln (m);
sum := 0;
for i:=n to m do
sum := sum + i;
writeln (sum);

readln
end.

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

Ответ:

twentytw

19.08.2020 13:38

Var n,m : Integer;
Begin
Write (' введите N: '); Readln (n);
Write (' введите M: '); Readln (m);
Writeln ((n+m)*(m-n+1) div 2);
end.

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

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

kassndra8137

23.04.2022 19:08

Мини проект урок 2 Определи количество колонок первого раздела документа, изображенного на рисунке.НазадПроверить1234 дз...

uzinalizs

06.03.2023 17:25

нужна формула по нахождению первого элемента массива с++...

originalMontague

27.06.2022 20:39

. СОР ПО ИНФОРМАТИКЕ. ОЧЕНЬ НУЖНО. ИЛИ ОЦЕНЮ КАК ЛУЧШИЙ....

Mandarinka0001

23.02.2022 11:01

Решите карточку п информатике...

olyavlas23

27.07.2020 15:21

нарисуй свой идеальный компьютер будущего....

Анжела921

06.12.2022 11:29

В Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, оканчивающихся на 9. Программа получает на вход числа в последовательности,...

TwistChanel

22.12.2021 02:12

Изучи установленные параметры и определи, верно ли, что пароль для открытия документа ненадежный? Верно/Неверно...

tutuginovvan

17.11.2020 05:14

Как правильно почистить диск D в ноутбуке чтобы не удалять все...

Emmaff

08.01.2022 08:41

10. Переведите данное число из 10-чной системы 2-чную систему счисления: 9010=?,...

ssssss213r532

30.11.2020 17:09

Дана сторона а(ввести с клавиатуры) равностороннего треугольника .найти радиусы вписанной и описанной окрудностей r=a/2*корень из3 r2=a/корень из3...

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

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