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

Question

Информатика

Риммушка

26 сентября, 11:20

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

+5

Ответы (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.