Паскаль! дано число. умножить его на 9 (один раз). - вопрос №16607749 от kirilzz623 18.10.2022 02:13

Question

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

kirilzz623 · Answer

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.  ...