Найдите количество элементов, запись которых — палиндромы - Pascal ABC

Формулировка задачи:

Введите массив из 5 элементов с клавиатуры и найдите количество элементов , запись которых в 2с.с-палиндром(например,10101 в двоичной=21)

Код к задаче: «Найдите количество элементов, запись которых — палиндромы - Pascal ABC»

textual
const m = 5;
var i, k, n, t, r: integer;
begin
  k := 0;
  writeln('Введите ', m, ' неотрицательных чисел');
  for i := 1 to m do
    begin
      repeat
        write('Число ', i, ': ');
        readln(n)
      until n >= 0;
      t := n;
      r := 0;
      repeat
        r := 2 * r + t mod 2;
        t := t div 2
      until t = 0;
      if n = r then inc(k)
    end;
  write('Количество палиндромов в СС 2: ', k)
end.

14   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ