Составить программу,которая вычесляет сумму цифр 5 значного натурального числа

1

Ответы и объяснения

2013-12-16T16:24:04+04:00
Var a:integer;
begin
readln(a);
write(a mod 10+
(a mod 100) div 10+
(a mod 1000) div 100+
(a mod 10000) div 1000+
(a mod 100000) div 10000);
end.