Предмет: Информатика,
автор: Ответственная
Паскаль! Дано число. Умножить его на 9 (один раз). Получить сумму его цифр. Т.е. доказать, что сумма цифр этого числа будет равна 9. (В первом раскладе или во втором сумма цифр этого числа будет равна 9.)
Ответы
Автор ответа:
0
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.
Интересные вопросы
Предмет: География,
автор: mariaaleksandronets
Предмет: Математика,
автор: jtslstjneg
Предмет: Қазақ тiлi,
автор: erkhanuradin
Предмет: Алгебра,
автор: Бутузова