Как на Pascal ABC написать программку, которая будет считать сумму цифр

Как на Pascal ABC написать программку, которая будет считать сумму цифр числа, введенного с клавиатуры?
Количество цифр в числе неизвестно! Число целое. Очень желательно с изъяснениями (вне программки). Заблаговременно спасибо!!!
P.S. Я дам 15 баллов! Очень необходимо!!!

Задать свой вопрос
София Алефирова
И зачем 2-ой раз писать одно и то же?
Светлана
Вообщем задача звучит не так.
Никольникова Дашка
Мне не помогли, а с момента как я задала вопрос, прошло около часа. Потому я сделала ещё одну попытку.\
Алексей Крилевец
Вам и комменты написали, и решение дали....
Валерка
65 минут вспять дали решение....
Arina Gubneli
А еще - на надобно про баллы, если Вы не разумеете систему их рассредотачивания. Вы 15 баллов не даете, а расходуете. Даете каждому. кто решает задание, только половину...
Итов Александр
через 5 мин всё будет :D
1 ответ
Program LOL2016;
var n,s,r:integer;
begin
readln(n);
s:=0;
while(n lt;gt; 0) do begin
r:=n mod 10;
s:=s+r;
n:=n div 10;
end;
writeln(s);
end.

если что то не понятно просто спроси и я обьясню  :)
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт