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

Ответы 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.
    • Автор:

      ian
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years