Информатика на пять О нас
 Добавить в избранное
5byte.ru
 Теория
 8 класс
 9 класс
 10 класс
 11 класс
Задания
 8 класс
 9 класс
 10 класс
 11 класс
Книги
Тесты
ЕГЭ
Turbo Pascal 7
 Описание
 Задачи
HTML
Рефераты

Задача 34.

Если мы сложим все цифры какого-либо числа, затем все цифры найденной суммы и будем повторять много раз, мы, наконец, получим однозначное число (цифру), называемое цифровым корнем данного числа. Например, цифровой корень числа 34697 равен 2 (3+4+6+9+7=29; 2+9=11; 1 + 1=2). Составим программу для нахождения цифрового корня натурального числа.

program prim5;
  uses crt;
  var n, k, s: longint;
begin
  clrscr;
  writeln(' число='); readln(n);
  s:=n;
{Пока сумма является двузначным числом.}
  while s>9 do
    begin
      k:=s;s:=0;
{Вычисляем сумму цифр числа.}
      repeat
        S:=s+k mod 10; k:=k div 10;
      until k=0;
  end;
  writeln(' цифр. корень числа ',n, ' равен ',s);
  readln;
end.





 У Вас есть материал пишите нам
 
    Copyright © 2008    
Rambler's Top100