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

Question

Информатика

Йов

9 июля, 09:32

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

+1

Ответы (1)

Знаете ответ на вопрос?

Ион · Answer 1

var

a, b:integer;

begin

readln (a) ;

a:=a*9;

while a9 do

begin

b:=0;

while a0 do

begin

b:=b+a mod 10;

a:=a div 10;

end;

a:=b;

end;

end.