Ответы и объяснения

2013-10-22T17:56:19+04:00
Всего таких цифр 900:

program peatizna4nie;
uses crt;
var a,i:longint;
begin
for a:=10000 to 99999 do   
if ((a div 10000)=(a mod 10))   
and ((a div 1000 mod 10)=(a mod 100 div 10))  
then begin writeln(a); inc(i,1); end;   
writeln('Количество= ',i);
end.