Массив, палиндромы.Pascal

@bullet810 · Регистрация: 27.01.2011

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

Друзья, помогите решить задачку, вот условие
Создать массив пятизначных нечетных симметричных чисел,(пример 34543 или 70507), вывести в 4 колонки элементы массива.
Элементы четных колонок выводить в круглых скобках

@MadMag · 27.01.2011, 23:56

Как-то так(могут быть незначительные ошибки, т.к. писал прямо тут.

Pascal

program pal;
 
function IsPal(x : integer) : Boolean;
begin
  IsPal := (x mod 10 = x div 10000) and ((x div 1000) mod 10 = (x div 10) mod 10);
end;
 
var
  i : integer;
  a : array[1..100000] of integer;
  k : integer;
  
begin
  k := 0;
  for i := 10000 to 99999 do begin
    if(IsPal(i)) then begin
      a[k] := i;
      k := k + 1;
    end;
  end;
  
  i := 1;
  while(i < k) do begin
    writeln(a[i], ' (', a[i + 1], ') ', a[i + 2], ' (', a[i + 3], ') ', a[i + 4]);
    i := i + 4;
  end;
end.

@bullet810 · 28.01.2011, 00:39 **[ТС]**

Кирилл, спасибо тебе за помощь =) + тебе

@bullet810 0 / 0 / 1 Регистрация: 27.01.2011 Сообщений: 17
		1
	Массив, палиндромы.Pascal 27.01.2011, 22:07. Показов 1247. Ответов 2 Метки нет (Все метки) Друзья, помогите решить задачку, вот условие Создать массив пятизначных нечетных симметричных чисел,(пример 34543 или 70507), вывести в 4 колонки элементы массива. Элементы четных колонок выводить в круглых скобках 0

@bullet810 0 / 0 / 1 Регистрация: 27.01.2011 Сообщений: 17
	28.01.2011, 00:39 [ТС]	3
	Кирилл, спасибо тебе за помощь =) + тебе 0

Массив, палиндромы.Pascal

Решение