Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте, эксперты!

Помогите Разработать программу нахождения суммы цифр заданного трехзначного числа.

Вопрос задал: Tuev Maxim (статус: Посетитель) Вопрос отправлен: 10 октября 2009, 15:45 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: min@y™

Ну, типа как-то так:

function Sum(X: Cardinal): Cardinal;
begin
  Result:= 0;
 
  while X <> 0 do
    begin
      Inc(Result, X mod 10);
      X:= X div 10;
    end;
end;

Ответ отправил: min@y™ (статус: Доктор наук) Время отправки: 11 октября 2009, 11:28

Мини-форум вопроса

DNK (статус: Студент), 10 октября 2009, 17:16 [#1]: Для начало установи Делфи! "Digital Networked Knight"

Эхо Унитазного Бачка (статус: 1-ый класс), 11 октября 2009, 05:16 [#2]: где n:integer и n>0 скажу, что procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin i:=456; showmessage(IntToStr(StrToInt(IntToStr(i)[1])+StrToInt(IntToStr(i)[2])+StrToInt(IntToStr(i)[3]))); end; Только не ржать! какой вопрос - такой и ответ. xD

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.