Найти двузначное число, равное утроенному произведению его цифр. Ответ: 15,24.

Question

Найти двузначное число, равное утроенному произведению его цифр. Ответ: 15,24.

Answer 1

Var i,j:integer;
begin
for i:=1 to 9 do
 for j:=0 to 9 do
  if i*10+j = 3*i*j then writeln(i*10+j);
end.

Результат:
15
24

Answer 2

Если надо программу для поиска такого числа, то как вариант:

//Pascal
var i:integer;
begin
  for i:=10 to 99 do
     if (i=(i div 10 * i mod 10) *3) then writeln(i);
end.

ответ:
15
24

Comments

Извините, решение неправильное, думал утроенное произведение сумм цыфр

---

Но, если изменить один символ в решении, то получим правильный вариань