Răspuns:
program numere5cifre;
var a,b,c,d,e,n, contor:integer;
begin
contor:=0;
for a:=5 to 6 do
for b:=0 to a-1 do
for c:=0 to 9 do
begin
d:=0;
while d<9 do
begin
for e:=0 to 9 do
begin
n:=10000*a+1000*b+100*c+10*d+e;
write(n,' ');
contor:=contor+1;
end;
d:=d+2;
end;
end;
writeln;
writeln('gasite ',contor,' numere');
end.
Explicație:
gasite 5500 numere, ce respecta conditiilor