Найти сумму всех целых чисел от A до B включительно. (A и B даны)

Найти сумму всех целых чисел от A до B включительно. (A и B даны)

Исходник программы для нахождения суммы чисел от A до B, причём A может быть больше B, может быть и меньше, тогда суммирование будет производиться в обратную сторону. Данная программа реализована с помощью цикла с параметром FOR и оператора сложения. Есть пояснительные комментарии к каждой строке.
Исходный код программы сложения всех чисел от A до B, заданных пользователем, где A B:

Program ISHZEDSUM;
Var a,b,i, sum:integer; //Описание переменных
Begin //Начало программы
  Writeln('Введите число A'); //Диалог с пользователем
  Readln(a); //Считывание А
  Writeln('Введите число B'); //Диалог с пользователем
  Readln(b); //Считывание В
  sum:=0; //Зануление переменной sum
  if A<B then
  For i:=A to B do //Цикл for с параметром от А до В
    sum:=sum+i; //Суммирование
  if A>B then
  For i:=A downto B do //Цикл for с параметром от А до В
    sum:=sum+i; //Суммирование
  Writeln('Сумма чисел = ',sum); //Вывод результата
End.//Конец


Скачать: sumab.pas
Дата: 2012-03-10 17:10:55   Просмотров: 17526

Теги: циклы Паскаль исходник Pascal FOR