Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Сумма цифр целого числа...

Автор: Shaddix 28.03.2004 18:49

Помогите, плз., решить задачу:
"Найти сумму цифр целого числа".
Заранее благодарю...

Автор: fms 28.03.2004 19:01

это тут уже оч. много раз обсуждалось.. посмотри назад немного.. все есть. ;)

Автор: AlaRic 28.03.2004 19:10

http://forum.pascal.net.ru/index.php?showtopic=1173

Автор: Catty 28.03.2004 20:53

Код
var b,t,s:integer;
a:longint;
begin
read(a);
s:=0;
repeat
b:=a div 10;
t:= a-b*10;
s:=s+t;
a:=b;
until a<=0;
write(s);
end.

Автор: Shaddix 28.03.2004 22:20

Спасибо, ребята! Выручили!