oClasaAnonima
Megaelev
Data inscrierii: 11/Apr/2008
Mesaje: 29
|
 Trimis: 11.04.2008 15:44 Titlul subiectului: Problema 01 |
|
|
| Cod: |
{1. se citesc de la tastatura n numere naturale, cu cel mult 9 cifre fiecare.
scrieti un program care pentru o cifra k citita de la tastatura, afiseaza pe
ecran cate numere prime in scrierea carora apare cifra k, se gasesc in sirul
dat.}
program ex1;
var i,n,k,a,t:integer;
function prim(p:integer):boolean;
var d,j:integer;
begin
d:=0;
for j:=2 to p div 2 do if p mod j=0 then d:=d+1;
if d=0 then prim:=true
else prim:=false;
end;
function numa(p:integer):boolean;
begin
numa:=false;
while p<>0 do begin
if p mod 10=k then numa:=true;
p:=p div 10;
end;
end;
begin
write('introduceti n: '); readln(n);
write('introduceti k: '); readln(k);
a:=0;
for i:=1 to n do begin
readln(t);
if prim(t) then if numa(t) then a:=a+1;
end;
write(a);
end. |
|
|
