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

Задание:

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

Решение:

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.

Знаете другой ответ?

Отправить свой ответ