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

Лееееешаааа Лееееешаааа    3   21.05.2019 12:30    0

Ответы
Artem228133 Artem228133  01.10.2020 03:53

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.

 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика