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.
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile disponibile v-au fost utile și inspiraționale. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, suntem aici pentru a vă ajuta. Ne face plăcere să vă revedem și vă invităm să adăugați site-ul nostru la favorite pentru acces rapid!
