В промежутке [m,n] найти все палиндромы и подсчитать их количество

@Oksanaa · Регистрация: 23.12.2011

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

9. В промежутке [m, n] найти все палиндромы и подсчитать их количество.

@Mr.Dek · 23.12.2011, 20:02

Сообщение от Oksanaa

9. В промежутке [m, n] найти все палиндромы и подсчитать их количество.

Pascal

Program pl;
uses crt;
var j:integer;
    m,n,d:longint;
function stepen (y:integer):real;
var i:integer;
    s,c,a:longint;
begin
s:=1;
c:=y;
for i:=1 to 10 do
  begin
   y:=y div 10;
   if y<>0 then s:=s+1;
  end;
m:=1;
n:=0;
For i:=1 to s do
  begin
   a:=c mod 10;
   c:=c div 10;
   n:=n*10+a;
  end;
stepen:=n;
end;
begin
 clrscr;
 writeln('Введите M и N');
 write('M=');
 readln(m);
 write('N=');
 readln(n);
 d:=0;
 writeln('Палиндромы:');
 for j:=m to n do
if j=stepen(j)  then  begin d:=d+1;
 write(' ',j,' ');
end;
 writeln;
 writeln('Кол-во=',d);
 readkey;
end.

@Oksanaa 0 / 0 / 0 Регистрация: 23.12.2011 Сообщений: 4
		1
	В промежутке [m,n] найти все палиндромы и подсчитать их количество 23.12.2011, 18:39. Показов 1731. Ответов 1 Метки нет (Все метки) 9. В промежутке [m, n] найти все палиндромы и подсчитать их количество. 0

	23.12.2011, 20:02

В промежутке [m,n] найти все палиндромы и подсчитать их количество

Решение