Задача на Pascal ABC: Два трёхзначных числа a и b. В интервале от a до b все числа, сумма цифр которых кратна 3, выдать зеркально

[Andrew5674]

Даны 2 целых трёхзначных числа: a и b. Для каждого числа в интервале от a до b, сумма цифр которого кратна трём, зеркально отразить цифры числа.
Например: 207 (2+0+7=9). 9 кратно 3. Зеркальное отражение 207 = 702

[Ghost3]

Я поступил бы так:

Прогонял бы числа от 100 до 999 в цикле в виде строки. Разбивал бы на цифры для проверки условия, что их сумма кратна 3м с помощью ord. Что бы с помощью ord перевести символ в число, надо записать ord(x)-48 (x - символ)

Вот например для понятности как это делается:

var
c:string;
begin
read(c);
writeln(ord(c[1])-48,ord(c[2])-48,ord(c[3])-48);
end.

[Andrew5674]

вот тоже нашёл что-то, мб поможет)

var
  a, b, i : integer;
begin
  read (a, b);
  for i := a to b do
    if i mod 3 = 0 then
      writeln (i div 100 + (i div 10 mod 10) * 10 + (i mod 10) * 100);
end.

[Andrew5674]

всё я сделал

var
  a, b, i: integer;
  fr,frn:string;
begin
  writeln('введите a и b');
  read (a, b);
  for i := a to b do
    if i mod 3 = 0 then
      writeln (i div 100 + (i div 10 mod 10) * 10 + (i mod 10) * 100);
  readln(fr);
 for i:=length(fr) downto 1 do frn:=frn+fr[i];
end.

[Poma][a]

readln(fr);
for i:=length(fr) downto 1 do frn:=frn+fr[i];

Что это? Почему это делается один раз за программу?

[Andrew5674]

Сообщение от Poma][a

Что это? Почему это делается один раз за программу?

блин я не то скопировал, вот конечная программа

var
  a, b, i: integer;
begin
  writeln('введите a и b');
  read (a, b);
  for i := a to b do
    if i mod 3 = 0 then
      writeln (i div 100 + (i div 10 mod 10) * 10 + (i mod 10) * 100);
end.