Посчитать сумму цифр в числе паскаль

Содержание

Исходник программы, которая находит сумму всех цифр в числе, введённого пользователем с клавиатуры. Исходник основан на цикле WHILE. Есть пояснительные комментарии к каждой строке. Увидеть исходный код и скачать скомпилированный исходник вы можете далее.

Исходный код программы, которая находит сумму цифр числа:

Задача

Дано число. Найти сумму и произведение его цифр.

Решение

n – число;
sum – сумма цифр;
mult – произведение цифр.

Алгоритм решения задачи:

  1. sum присвоить ноль.
  2. mult присвоить единицу (при умножении на ноль результат будет нулевым).
  3. Пока n больше нуля
  1. найти остаток от деления n на 10 (т.е. последнюю цифру числа), добавить его к сумме и увеличить произведение;
  2. избавиться от последнего разряда числа n путем деления нацело на число 10.

Напишите программу,которая считает сумму цифр введенного числа (паскаль)

Programи fr;
var a, sum: integer;
Begin
Writeln (‘Введите число’);
Readln (a);
while a<>0 do
begin
sum:=sum+(a mod 10);
a:=a div 10;
end;
Writeln (‘Сумма цифр ‘,sum);
end.

Почему используется вот такая запись ( что это значит ) — sum:=sum+(a mod 10) .

Можно ли написать эту программу как то через другой цикл? ( если да,то напишите его)

Читайте также  Сброс телефона samsung на заводские настройки
Ссылка на основную публикацию
Adblock
detector