Дано 3-ех значное число,найти сумму цифр числа
В поиске должно было быть...
Если число abc, то решение задачи сходится к представлению 3-ех значного числа как 100*a+10*b+c
Прога для числа с любим количеством символов
.
{........................................}
readln(a); {а-число}
z:=0;
while a<>0 do
begin
a:=t mod 10;
t:=t div 10;
z:=z+a; {z-и есть результат}
end;
{........................................}
Поиск можно отменять, я так понимаю? Будем КАЖДЫЙ раз решения заново постить? А ведь ЭТО есть даже в FAQ-е !!!