С паскаля на с++

[DeniCoder]

var a,b,i,j,sm: integer; 
 var n: integer;
 s,ssm,ssmobr,sobr:string;
 begin
 read(a,b); 
 //Перебор чисел от a до b
 for i := a to b do begin
 //Преобразуем число в строку
  s := IntToStr(i);
  //Получаем обратную строку
  sobr:='';
  for j:=length(s) downto 1 do sobr:=sobr+s[j];
  //Если исходное число не полиндром, то...
  if s<>sobr then begin
  sm := 0;
  //Находим сумму цифр числа
   for j := 1 to Length(s) do 
    sm:= sm+StrToInt(s[j]);  
    //Преобразуем сумму цифр в строку
   ssm := IntToStr(sm);
   //Получаем обратную строку
  ssmobr:='';
  for j:=length(ssm) downto 1 do ssmobr:=ssmobr+ssm[j];
  if ssmobr=ssm then begin
  writeln(i); n:=n+1
  end; 
 end;end;
//Проверяем счётчик количества недопалиндромов
 if n = 0 then writeln('NO');
end.

[Alex11223]

Тут не бесплатное бюро переводов чужих лаб.

Назовите нормально тему, покажите свои наработки, конкретные вопросы и т.п.
http://www.programmersforum.ru/announcement.php?f=31

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.