Решить задачу ** языке Pascal : Среди всех двузначных чисел найти двузначное число,...

Question

Решить задачу на языке Pascal :

Среди всех двузначных чисел найти двузначное число, равное утроенному произведению его цифр.

Answer 1

var i:integer;

begin

for i:=10 to 99 do

if i=3*(i div 10)*(i mod 10) then writeln(i);

end.