1 / 2 / 0
Регистрация: 04.09.2013
Сообщений: 87
1

Нумеролог

06.09.2013, 08:29. Показов 3919. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Чтобы предсказать судьбу человека, нумеролог берет время жизни человека в секундах, затем складывает все цифры этого числа. Если полученное число состоит более чем из одной цифры, операция повторяется, пока в числе не останется одна цифра. Затем по полученной цифре и числу операций, необходимых для преобразования числа в цифру нумеролог предсказывает судьбу человека. Нумеролог плохо умеет считать, а числа, с которыми он работает, могут быть очень большими. Напишите программу, которая бы делала все расчеты за него.

Входные данные

Входной файл INPUT.TXT содержит число N – время жизни человека в секундах (1 ≤ N ≤ 101000).

Выходные данные

В выходной файл OUTPUT.TXT выведите два числа через пробел: полученную цифру из числа N и число преобразований.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.09.2013, 08:29
Ответы с готовыми решениями:

Нумеролог с++
о предсказать судьбу человека, нумеролог берет время жизни человека в секундах,а затем добавляет...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Фрилансер
3418 / 2815 / 3000
Регистрация: 08.02.2012
Сообщений: 8,590
Записей в блоге: 1
06.09.2013, 12:47 2
Лучший ответ Сообщение было отмечено Настя Силина как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Var f,g:text;
    n,m,k:integer;
Begin
    Assign(f,'INPUT.TXT');Reset(f);
    read(f,n);
    While n div 10 > 0 do
    Begin
      m:=n;n:=0;
      While m>0 do
      Begin
        n:=n+m mod 10;
        m:=m div 10;
      End;
      inc(k);
    End;
    Assign(g,'OUTPUT.TXT');Rewrite(g);
    write(g,n,' ',k);
    writeln('Результат в файле "OUTPUT.TXT"');
    Close(g);
    readln;
End.
0
06.09.2013, 12:47
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru