Найдите количество элементов, запись которых — палиндромы - Pascal ABC
Формулировка задачи:
Введите массив из 5 элементов с клавиатуры и найдите количество элементов , запись которых в 2с.с-палиндром(например,10101 в двоичной=21)
Решение задачи: «Найдите количество элементов, запись которых — палиндромы»
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.