VPF::Работа с числами - Форум программистов

Alex103

Дата 18.10.2007, 15:04 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 416
Регистрация: 5.1.2005
Где: Украина, г. Харьк ов

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

Я прошу прощение за создание данной темы но подобного мне не удалось найти.
тут я вообще ничего не понял http://forum.vingrad.ru/topic-45773.html

Задача в следующем. мне нужно подсчитать сумму последних "m" цифр натурального числа "n"
Примеров мыслей привести не могу так как мне сложно представить как это сделать.
Пожалуйста помогите.

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

n:=123456;
m:=3;
res=15;

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

Мой адресс не дом и не улица, мой адресс WWW

Alix

Дата 18.10.2007, 16:12 (ссылка)

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

Загрузка ...

L45

Профиль
Группа: Участник
Сообщений: 581
Регистрация: 4.5.2005
Где: Pskov/Spb

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

модифицировал это

Код

function sum(number:Integer; howMuch : integer):Integer;
begin
  result := 0;

  while (number>0) and (howMuch > 0) do begin
      inc(result, number mod 10);
      number := number div 10;
      dec(howMuch);
  end;
end;

как работает объяснить?

Это сообщение отредактировал(а) Alix - 18.10.2007, 16:15

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

Знание только тогда знание, когда оно приобретено усилиями своей мысли, а не памятью (с) Л. Толстой
High tech. Low live. (с) Gardner Dozois

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