Даны натуральные числа m и n (m<n).составить программу, печатающую все натуральные числа...

Question

Даны натуральные числа m и n (mсоставить программу, печатающую все натуральные числа больше m, но меньше n, а также сумму этих чисел.
в программе Паскаль

Comments

спасибо за ответ!

---

очень помогли

---

нет

Answer 1

Var m,n,i,s:integer;
begin
write('m = ');
readln(m);
write('n = ');
readln(n);
s:=0;
for i:=m+1 to n-1 do
 begin
 write(i,' ');
 s:=s+i;
 end;
writeln;
writeln('s = ',s);
end.

Пример:
m = 5
n = 10
6 7 8 9 
s = 30