Задача - Форум

Задача

snaper1993

Дата: Понедельник, 08.12.2008, 23:37 | Сообщение # 1

Бывалый

Группа: Пользователи

Сообщений: 121

Репутация: 2

Замечания: 0%

Статус: Offline

Вам дается натуральное число N. Вы находите сумму квадратов его цифр и получаете новое число. Потом с этим числом проделываем те же самые операции. Какое число вы получите после K таких шагов?
Формат входных данных. ВО входном файле input.txt содержатся натуральные числа N и K, что не превышают 10^9.
Формат исходных данных. В исходный файл output.txt вывести искомое число.
Пример входных и исходных данных.
input.txt
123 3
output.txt
50
Обеснение:123 -> 14 -> 17 -> 50

Я - желанный гость Сайта взаимопомощи программистам Pascal А ты?

Alexander

Дата: Суббота, 13.12.2008, 20:06 | Сообщение # 2

Всевышний

Группа: Модераторы

Сообщений: 475

Репутация: 16

Замечания: 0%

Статус: Offline

Code

for i:=1 to K do
    begin
       x:=0;
       while N<>0 do
          begin
             x:=x+sqr(N mod 10);
             N:=N div 10;
          end;
       N:=x;
    end;

Скажем дружно- нафиг нужно!

Seqular

Дата: Суббота, 13.12.2008, 22:15 | Сообщение # 3

Хранитель

Группа: Администраторы

Сообщений: 859

Репутация: 35

Статус: Offline

Alexander, Код лаконичен и прост для понимания. Можно попробовать сделать рекурсивно, но суть от этого не изменится

Поддерживаю также проект сообщество молодых сисадминов

		Пятница, 10.01.2025
	Pascal 4 All