Помогите составить программку на паскль:даны 2 целых числа а и в

Помогите составить программу на паскль:даны 2 целых числа а и в найту семму всех естественных чисел от а до в включительно.

Задать свой вопрос
1 ответ

program raf105;

var

 a,b,sum,i: integer;

begin

 write('a = ');

 readln(a);

 write('b = ');

 readln(b);

 for i:=a to b do

   if i gt; 0 then

     sum:= sum+i;

 writeln('Сумма всех Натуральных чисел от ',a,' до ',b,' = ',sum);

end.

PascalABC 3.4.2

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт