Question

Se citește de la tastatura un număr natural "n" . sa se afișeze toate numerele mai mici sau egale cu n care au produsul cifrelor 12

Answer 1

program p1;var n,i,q,j:integer;begin  readln(n);  for i:=1 to n do begin    q:=1;j:=i;    repeat       q:=q*(j mod 10);      j:=j div 10;    until j=0;    if q=12 then writeln(i);  end;end.