Предмет: Информатика,
автор: popkosan
Как вывести число натуральных чисел-палиндромов от a до b (a,b не превышают 10000) в пфскале
Аноним:
Наверно все же не число, а количество.
Ответы
Автор ответа:
1
var
a,b,i,n,j,l,ier:integer;
s:string;
p:boolean;
begin
Write('Введите границы интервала в виде пары натуральных чисел ');
Read(a,b);
n:=0;
for i:=a to b do
begin
Str(i,s);
l:=Length(s);
if l=1 then Inc(n)
else begin
j:=1;
repeat
p:=(s[j]=s[l-j+1]);
Inc(j)
until (j>l) or (not p);
if p then Inc(n)
end
end;
Writeln('Количество палиндромов равно ',n)
end.
Тестовое решение:
Введите границы интервала в виде пары натуральных чисел 1550 2450
Количество палиндромов равно 10
a,b,i,n,j,l,ier:integer;
s:string;
p:boolean;
begin
Write('Введите границы интервала в виде пары натуральных чисел ');
Read(a,b);
n:=0;
for i:=a to b do
begin
Str(i,s);
l:=Length(s);
if l=1 then Inc(n)
else begin
j:=1;
repeat
p:=(s[j]=s[l-j+1]);
Inc(j)
until (j>l) or (not p);
if p then Inc(n)
end
end;
Writeln('Количество палиндромов равно ',n)
end.
Тестовое решение:
Введите границы интервала в виде пары натуральных чисел 1550 2450
Количество палиндромов равно 10
Похожие вопросы
Предмет: Русский язык,
автор: TeMkA12348220
Предмет: Английский язык,
автор: шикарный1
Предмет: Русский язык,
автор: Аноним
Предмет: Физика,
автор: wenlaiii
Предмет: Химия,
автор: sasha107lmailru