Симметричные числа

@Error404MOD22 · Регистрация: 19.10.2018

Author24 — интернет-сервис помощи студентам

Нужно написать программу, или хотя бы подсказать как это реализовать.

Необходимо найти все числа из диапазона a,b запись которых симметрична относительно середины
т.е 55 - симметрична 22 не симметрична
Например:
Вход 12 52 Выход 22 33 44
Вход 82 132 Выход 88 99 101 111 121 131

Входные данные:
2 натуральных числа a и b (10<a<b<10000)

Спасибо.

@JuriiMW · 19.10.2018, 17:08

Pascal

1
2
3

begin
  Range(ReadInteger,ReadInteger).Where(n->n-IntToStr(n).Reverse.JoinIntoString('').ToInteger=0).Println;
end.

@atlakatl · 20.10.2018, 05:29

Pascal

var
  s: array of integer;
  a, b: integer;
  sStr, l1, l2: string;
 
begin
  write('a=');
  read(a);
  write('b=');
  read(b);
  SetLength(s,  b - a + 2);
  var k := -1; // Текущий номер для заполнения массива
  for var i := a to b do
  begin
    sStr := i.ToString;
    var len := length(sStr);
    var simL := true;
    for var j := 0 to floor((len - 1) / 2) do
    begin
      l1 := sStr.substring(j, 1);
      l2 := sStr.substring(len - j - 1, 1);
      if l1 <> l2 then
      begin
        simL := false;
        break;
      end;
    end;
    if simL then
    begin
      inc(k);
      s[k] := i
    end;
  end;
  var i := 0;
  while s[i] > 0 do
  begin
    print(s[i]);
    inc(i);
  end;
end.

@Error404MOD22 0 / 0 / 0 Регистрация: 19.10.2018 Сообщений: 1
		1
	Симметричные числа 19.10.2018, 16:53. Показов 554. Ответов 2 Метки нет (Все метки) Нужно написать программу, или хотя бы подсказать как это реализовать. Необходимо найти все числа из диапазона a,b запись которых симметрична относительно середины т.е 55 - симметрична 22 не симметрична Например: Вход 12 52 Выход 22 33 44 Вход 82 132 Выход 88 99 101 111 121 131 Входные данные: 2 натуральных числа a и b (10<a<b<10000) Спасибо. 0

	20.10.2018, 05:29