Ввести целое число и найти сумму его цифр(1234) Паскаль

Question

Ввести целое число и найти сумму его цифр(1234) Паскаль

Экономика

Гость

Ответ(ы) на вопрос:

Гость

var a, Summ:integer; begin write('Введите число '); readln(a); Summ := 0; while a > 0 do begin Summ := Summ + a mod 10; a := a div 10; end; writeln('Сумма цифр равна ', Summ); end.

Accepted Answer

var s,i:integer; begin readln(i); s:=0; repeat s:=i mod 10 + s; i:=i div 10 until i=0; writeln(s); readln end.