Нахождение суммы цифр в числе (WHILE)

Нахождение суммы цифр в числе (WHILE)

Исходник программы, которая находит сумму всех цифр в числе, введённого пользователем с клавиатуры. Исходник основан на цикле 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.
Автор: Zed от 2012-03-11 10:55:03   Просмотров: 10189

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