Ребят помогите пж. Задача по информатике в паскале. Задача:Составить программу...

Question

Ребят помогите пж. Задача по информатике в паскале.
Задача:Составить программу вычисления суммы цифр числа, если кол-во неизвестно.

Answer 1

Uses crt;
var a,b: Integer;
Begin
Write('Введите целое число: ');
Read a;
While a>0 do
Begin
b:=b+a mod 10;
a:=a div 10;
End;
Writeln('Сумма цифр введённого числа равна ', b);
End.

Comments

Спасибо