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