Помогитее решить задачу

[Margosham-k]

Помогитее решить задачу

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

заранее спасибо)

 

[fagot86]

Наверно так...

uses crt;
var i:byte;
begin
     clrscr;
     for i:=10 to 99 do
         if (i mod 10)*(i-(i mod 10))/10*3=i
            then write(i:6);
end.

 

[Vladimir_S]

fagot86, ну что за ужас, ей-Богу:

(i-(i mod 10))/10

Почему не просто
(i div 10) ?

Margosham-k, не надо дублировать и клонировать посты! У нас это наказуемо.