Поделитесь своими знаниями, ответьте на вопрос:
Паскаль! дано число. умножить его на 9 (один раз получить сумму его цифр. т.е. доказать, что сумма цифр этого числа будет равна 9. (в первом раскладе или во втором сумма цифр этого числа будет равна 9.)
vara,b: integer; beginreadln(a); a: =a*9; while a< > 9 dobegin
b: =0; while a< > 0 do begin b: =b+a mod 10; a: =a div 10; end; a: =b; end; end.