Отыскать симметричные естественные числа из интервала от А до В (А

Отыскать симметричные натуральные числа из интервала от А до В (А и В вводятся с клавы). паскаль

Задать свой вопрос
1 ответ
var
  a, b, i, j: integer;
  l, l2: string;

begin
  readln(a, b);
  for i := a to b do
  begin
    l := i.ToString();
    l2 := '';
    for j := 1 to length(l) do
      l2 := l[j] + l2;
    if (l = l2) then writeln(l);
  end;
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт