[detrin]

Ма-а-аленький вопрос. Вам нужно решить задачу или подсказать как решить?

[rim_muvies]

Вообще лучшим варинатонм было б объяснить что писать в onclick на кнопке, на форме как я понял нудно тольок Edit, кнопка и допустим Panel

[Busla]

А в чём сложность-то?
На входе строка из 4х символов.
Каждый символ преобразуешь в число
Складываешь, умножаешь, сравниваешь

[vadimiron]

раван ли сумма цифр данного числа их произведению »

А такое вообще возможно? Ну кроме 1111

[Drongo]

vadimiron, Конечно, не четырёхзначное, но число 123 отвечает этому стандарту, например:

Код:

1 + 2 + 3 = 6
и
1 * 2 * 3 = 6

Вообще это я так понял задачка на совершенное число. Совершенное число это такое число когда все его сомножители (но не само число) в сумме дают это же число. Подобные задачи встречались на С++. Если это оно, то вот ссылка на объяснение совершенных чисел...
Совершенное число (Или я чуток запутался в объяснении?! чую, что, что-то не то, а что именно, понять не могу) Может задачка чисто для теории, возможно\невозможно, а не для того, чтобы находить такие числа?! Хотя если задали такую задачу, значит существуют, это моё мнение, хотя я могу ошибаться. Блин, точно запутался, если что, поправьте меня в теории чисел?!
(Сам я не решал ещё эту задачку, мой язык С++), не могу придумать алгоритм. Число 28 тоже совершенное число, но каким боком, я так понять и не могу, в книге одно написано, в Википедии, другое, теряюсь... Зная алгоритм, можно без напряга написать на С++, а потом пусть человеку переведут на его родной Delphi... Но моего уровня, не хватит...

[DedAlex]

vadimiron, 1111 не подходит. Подходят комбинации цифр 1, 1, 2, 4.
rim_muvies,

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  a, b, c, d : byte;
begin
  a := StrToInt ( Edit1.Text [ 1 ] );
  b := StrToInt ( Edit1.Text [ 2 ] );
  c := StrToInt ( Edit1.Text [ 3 ] );
  d := StrToInt ( Edit1.Text [ 4 ] );
  if a + b + c + d = a * b * c * d then
    Panel1.Caption := 'Равны'
  else
    Panel1.Caption := 'Не равны';
end;

Нет никаких проверок, если нужны добавьте сами.

[Drongo]

DedAlex,

Подходят комбинации цифр 1, 1, 2, 4. »

Точно, а значит и наоботот:
4211
2411
1241
1214
и т.д. Правильно?!

[DedAlex]

Drongo, правильно. Всего их 12 штук.

[Drongo]

DedAlex,

Всего их 12 штук. »

Это 12 комбинаций данного числа или таких чисел вообще?!