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

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

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

таня2022

18.01.2021 01:42

Объясните ! вычислите: 1) 4 * (11 div 3 mod 2) 2) (17 mod 3) div (15 mod 2) 3) 16/4 mod 3 div 5 4) (7 * 2) mod 5 + 1 вычислите значение переменных a и b. 1) a: = 9 b: = a mod 5...

Gulya55555

02.08.2022 14:22

Число 1710=100012 в однобайтовом формате: номера разрядов 7 6 5 4 3 2 1 0 биты числа 0 0 0...

alenakostenkova

27.07.2022 19:48

МузъІКОИ и Видео, вы ДОМАШНЕЕ ЗАДАНИЕ DA 1. Разделите все устройства по функциям и заполните таблицу. Устройства для ВВода информации Устройства для вывода Информации Устройства,...

анна2247

09.10.2021 04:18

Компьютерное представление беззнакового целого числа 0000000000110111 является: шестнадцатиразрядным восьмиразрядным двухразрядным пятнадцатиразрядным...

Spy1337

07.05.2020 07:14

В классе 10101(в двоичной системе счисления) 1001(в двоичной системе счисления) мальчиков. Сколько девочек и мальчиков всего в классе? Реши задачу в А2, результат переведи в А10....

bogdan345710

13.11.2022 07:33

Важно ли развитие беспроводных технологий в Республике Казахстан, Эссэ...

Йорик336

16.04.2021 00:21

Найдите ошибки в этот код и исравите их заранее...

tikatS66

10.01.2023 02:18

ЗАРАНЕЕ Задание 2: построить таблицу истинности для логического выражения ( A&B)&C+(-B&-C)...

verastepanova5

06.06.2020 15:14

Радіус першої кулі дорівнює 2 см, а радіус кожної наступної збільшується на 0.5 см. Розробіть код для визначення бокових поверхонь перших шести куль....

Asuamasya

11.12.2021 00:42

Как записывается арифметическое выражение в виде строчной записи BPython Сумму двух слагаемых а и b разделить на разность двухчисел с и d *a+b/c-da+b/(c+d)(a+b)/(c-d)(a+b)// (c-d)...

Ответ:

berezenetsdash

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 оценок)

Ответ:

богдана135

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 оценок)

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

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