Вывести на экран все симметричные трехзначные числа, а также их количество и сумму.

[мария989]

Вывести на экран все симметричные трехзначные числа, а также их количество и сумму.

[ForenLi]

и в чем проблема?

[digitalis]

ТС интересуется - какой язык программирования нужен для этой сверх-мега-задачи

[newerow1989]

var i, a, c, k, s: integer;
begin
   k:=0;
   s:=0;
   for i:=100 to 999 do
   begin
      a:=i div 100;
      c:=i mod 10;
      if a=c then
      begin
         Writeln(i);
         Inc(k);
         s:=s+i;
      end;
   end;
   Writeln;
   Writeln('k = ', k);
   Writeln('s = ', s);
   Readln;
end.