Найти сумму всех чисел от N до M.

Найти сумму всех чисел от N до M.

Задать свой вопрос
2 ответа
Var n,m : Integer;
Begin
 Write (' введите N: '); Readln (n);
 Write (' введите M: '); Readln (m);
 Writeln ((n+m)*(m-n+1) div 2);
end.
На языке паскаль
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.


Линер Артём
если можно на языке Паскаль
Борис
надобно было в задании указывать, щас попробую
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт