Исходник программы, которая находит сумму всех цифр в числе, введённого пользователем с клавиатуры. Исходник основан на цикле WHILE. Есть пояснительные комментарии к каждой строке. Увидеть исходный код и скачать скомпилированный исходник вы можете далее.
Исходный код программы, которая находит сумму цифр числа:
Program sumcifr; //Название программы
var a, sum: integer; //Описание переменных
Begin //Начало программы
Writeln ('Введите число'); //Диалог с пользователем
Readln (a); //Считывание числа
while a<>0 do begin //Вход в цикл while, пока а не равно 0
sum:=sum+(a mod 10); //Суммируем
a:=a div 10; //Целочисленное деление на 10, отрезаем последнюю цифру
end; //Конец цикла
Writeln ('Сумма цифр: ',sum);//Вывод результата
end. //Конец программыСкачать исходник: sumcifr.pas
Исходник открывается программами PascalABC, PascalABC.Net, TurboPascal.