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

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

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

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

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

Заблаговременно СПАСИБО

Юрий 2019-07-15 01:58:49

Пока твоё число не стало нулём, ты прибавляешь его последнюю цифру (a mod 10 значит "получить остаток от дробленья a на 10") к ответу, а потом отбрасываешь заключительную цифру у a (a div 10 значит "разделить a на 10 без учёта остатка"). Попробуй воспроизвести метод на бумаге.