Question

Составить программу, которая подсчитывает количество палиндромов среди натуральных четырехзначных чисел. Pascal

Answer 1

var
i, k: integer;
begin
k:=0;
for i:=1000 to 9999 do
if (i div 1000 = i mod 10) and (i div 100 mod 10 = i mod 100 div 10) then
inc(k);
writeln(k);
end.