Есть какое-то четырехзначное число, допустим 1234. Необходимо, посредством использования функций div и mod найти сумму чисел в этом числе. Т.е. говоря по русски 1+2+3+4. Замечу, что четырехзначное число может быть любым.
Lapp
29.11.2011 11:48
Вообще-то, для числа любой значности это делается так:
readln(n); s:= 0; while n<>0 do begin s:= s + n mod 10; n:= n div 10 end; writeln(n);
Для именно 4-значного числа можно, если есть настойчивое желание, усложнить себе жизнь примерно так:
s:= n mod 10 + n div 10 mod 10 + n div 10 div 10 mod 10 + n div 10 div 10 div 10;
Но тут все равно, кроме mod и div есть еще и +.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.