Исходник программы для нахождения суммы чисел от 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