VPF::[Pascal] Сумма цифр - Форум программистов

Matlashov

Дата 26.11.2009, 11:31 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 26.11.2009

Репутация: нет
Всего: нет

Всем привет.
Помогите задачу решить пжлста на Паскале с помощью подпрограммы

Из заданного числа найти сумму его цифр, из этого результата тоже найти сумму цифр и так далее пока в результате не будет одна цифра

THandle

Дата 30.11.2009, 12:58 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 30
Всего: 372

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

amsoft

Дата 30.11.2009, 20:16 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 201
Регистрация: 17.10.2009
Где: KZ, Astana

Репутация: нет
Всего: 4

я работаю на Object Pascal, но думаю смысл будет понятен:

var
X: integer = 123456;
Y,Z: integer;
S: string;

...

S := IntToStr(X);
while Length(S) > 1 do
         begin
         Z := 0;
         for Y := 1 to Length(S) do
              Z := Z + StrToInt(S[Y]);
         S := IntToStr(Z);
         end;
X := StrToInt(S); //конечный результат

--------------------

"Кто бы ты ни был - не думай о себе слишком"Дельфин

mr.Anderson

Дата 2.12.2009, 01:34 (ссылка)

(нет голосов)

Загрузка ...

iOS Lead Developer

Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 16
Всего: 128

Другой вариант, чистый паскаль. Не проверял, но должно работать.

Код


function NumberLength(N: Integer): Integer;
var
  L: Integer;
begin
  L := 0;
  while N > 0 do
  begin
    N := N div 10;
    Inc(L);
  end;
  NumberLength := L;
end;

function SumDigits(N: Integer): Integer;
var
  S: Integer;
begin
  S := 0;
  while N > 0 do
  begin
    S := S + N mod 10;
    N := N div 10;
  end;
  SumDigits := S;
end;

var
  X: Integer;
begin
  ReadLn(X);
  repeat
    X := SumDigits(X);
  until NumberLength(X) = 1;
  WriteLn('Final sum: ', X);
end.

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »