Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
Настя Силина
1 / 2 / 0
Регистрация: 04.09.2013
Сообщений: 87
1

Нумеролог

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

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

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

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

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

В выходной файл OUTPUT.TXT выведите два числа через пробел: полученную цифру из числа N и число преобразований.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
CodeR
Фрилансер
3381 / 2782 / 3000
Регистрация: 08.02.2012
Сообщений: 6,719
Записей в блоге: 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
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru