oClasaAnonima
Megaelev
Data inscrierii: 11/Apr/2008
Mesaje: 29
|
 Trimis: 13.04.2008 14:17 Titlul subiectului: Problema 20 |
|
|
| Cod: |
{20. se citesc de la tastatura doua numere naturale n si p (1<n<1000, 1<p<10).
sa se afiseze pe ecran, cu spatii intre ele, acele numere reale mai mici sau
egale cu n, care au toate cifrele mai mici sau egale cu p.}
program ex20;
var n,p,i:integer;
function nr(a:integer):boolean;
begin
nr:=true;
while a<>0 do begin
if a mod 10>p then nr:=false;
a:=a div 10;
end;
end;
begin
write('n: '); readln(n);
write('p: '); readln(p);
for i:=1 to n do if nr(i) then write (i,' ');
end.
|
|
|
