Question

Паскаль! Дано число. Умножить его на 9 (один раз).  Получить сумму его цифр. Т.е. доказать, что сумма цифр этого числа будет равна 9. (В первом раскладе или во втором сумма цифр этого числа будет равна 9.) 

Answer 1

var
a,b:integer;
begin
readln(a);
a:=a*9;
while a<>9 do
begin

  b:=0;
  while a<>0 do
  begin
    b:=b+a mod 10;
    a:=a div 10;
  end;
  a:=b;
end;
end.