Найти целые числа, которые при возведении в x^2, x^3,x^4 и x^5 степень дают палиндромы

@nastenkaa · Регистрация: 01.10.2011

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

найти все целые числа на диапазоне от 1 до 100 которые при возведении в x^2, x^3,x^4 и x^5 степень дают палиндромы

@Puporev · 11.11.2011, 09:09

Вообще-то или условие неточное или глупое, как написано, то это только число 1.
Может нужно если хоть 1 из степеней палиндром?

Pascal

uses crt;
function IsPalindrom(n:longint):boolean;
var m,p:longint;
begin
m:=n;
p:=0;
while m>0 do
 begin
  p:=p*10+m mod 10;
  m:=m div 10;
 end;
IsPalindrom:=p=n
end;
var i,k:longint;
begin
writeln('Числа, 2-я,3-я,4-я,5-я степени которых палиндромы');
k:=0;
for i:=1 to 100 do
if IsPalindrom(i*i)and IsPalindrom(i*i*i)and IsPalindrom(i*i*i*i)and IsPalindrom(i*i*i*i*i)then
 begin
  k:=1;
  writeln(i,' ',i*i,' ',i*i*i,' ',i*i*i*i,' ',i*i*i*i*i);
 end;
if k=0 then write('Таких чисел в этом диапазоне нет');
readln
end.

@nastenkaa · 11.11.2011, 17:59 **[ТС]**

нужно если хоть 1 из степеней палиндром. и без функций.

@Puporev · 11.11.2011, 18:04

Ну тогда и решайте как здесь, только вместо одной проверки пока руки не отнимутся, раз функции использовать Вам вера не позволяет.
Найти целые числа, которые при возведении в квадрат дают палиндром

@nastenkaa · 11.11.2011, 18:07 **[ТС]**

нужно с помощью цикл for

@Puporev · 11.11.2011, 18:09

А это не цикл for?

Pascal

for i:=1 to 100 do
if IsPalindrom(i*i)and IsPalindrom(i*i*i)and IsPalindrom(i*i*i*i)and IsPalindrom(i*i*i*i*i)then
 begin
  k:=1;
  writeln(i,' ',i*i,' ',i*i*i,' ',i*i*i*i,' ',i*i*i*i*i);
 end;

Только все and заменить на or

@nastenkaa · 11.11.2011, 18:14 **[ТС]**

Pascal

while i1>0 do
     begin
      p:=p*10+i1 mod 10;
      i1:=i1 div 10;
     end;
    if p=i*i then
     begin
      writeln(i,'  ',i*i);

как в эту задачу вписать for, чтобы работало и для других степеней. без огромной проверки. просто мы функции еще не учили.

@Puporev · 11.11.2011, 18:18

Pascal

1
2
3

if p=(i*i)or(p=i*i*i)or(p=i*i*i*i)or(p=i*i*i*i*i) then
     begin
      writeln(i,'  ',i*i,' ',i*i*i,' ',i*i*i*i,' ',i*i*i*i*i);

@nastenkaa · 11.11.2011, 18:35 **[ТС]**

эта проверка не правильная. например, число 11 никак не будет равно 11^степень

@Puporev · 11.11.2011, 19:51

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

число 11 никак не будет равно 11^степень

11^=121 палиндром

@nastenkaa · 11.11.2011, 19:54 **[ТС]**

if p=(i*i)or(p=i*i*i)or(p=i*i*i*i)or(p=i*i*i*i*i) then
begin
writeln(i,' ',i*i,' ',i*i*i,' ',i*i*i*i,' ',i*i*i*i*i);
но по этой записи 11=121

@Puporev · 11.11.2011, 19:56

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

но по этой записи 11=121

Ну я не знаю что нужно выводить, выводи только само число, пусть степени препод сам в уме считает, в условии написано

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

найти все целые числа на диапазоне от 1 до 100 которые

вот и выводи только сами числа.

@nastenkaa · 11.11.2011, 19:59 **[ТС]**

вы бы не могли написать задачу с начала до конца. я просто уже запуталась, только без функций, а с for

@Puporev · 11.11.2011, 20:13

Тупая задача, тупая программа, тупой препод и студент.

Pascal

uses crt;
var i,k,m,p:longint;
begin
writeln('Числа, 2-я или 3-я или 4-я или 5-я степени которых палиндромы');
k:=0;
for i:=1 to 100 do
 begin
  m:=i*i;
  p:=0;
  while m>0 do
   begin
    p:=p*10+m mod 10;
    m:=m div 10;
   end;
  if p=i*i then
   begin
    k:=1;
    writeln(i,'^2=',i*i)
   end
  else
   begin
    m:=i*i*i;
    p:=0;
    while m>0 do
     begin
      p:=p*10+m mod 10;
      m:=m div 10;
     end;
    if p=i*i*i then
     begin
      k:=1;
      writeln(i,'^3=',i*i*i)
     end
    else
     begin
      m:=i*i*i*i;
      p:=0;
      while m>0 do
       begin
        p:=p*10+m mod 10;
        m:=m div 10;
       end;
      if p=i*i*i*i then
       begin
        k:=1;
        writeln(i,'^4=',i*i*i*i)
       end
      else
       begin
        m:=i*i*i*i*i;
        p:=0;
        while m>0 do
         begin
          p:=p*10+m mod 10;
          m:=m div 10;
         end;
        if p=i*i*i*i*i then
         begin
          k:=1;
          writeln(i,'^5=',i*i*i*i*i)
         end;
    end;
   end;
  end;
 end;
if k=0 then write('Таких чисел в этом диапазоне нет');
readln
end.

@nastenkaa 0 / 0 / 0 Регистрация: 01.10.2011 Сообщений: 67
		1
	Найти целые числа, которые при возведении в x^2, x^3,x^4 и x^5 степень дают палиндромы 11.11.2011, 08:29. Показов 3374. Ответов 13 Метки нет (Все метки) найти все целые числа на диапазоне от 1 до 100 которые при возведении в x^2, x^3,x^4 и x^5 степень дают палиндромы 0

@nastenkaa 0 / 0 / 0 Регистрация: 01.10.2011 Сообщений: 67
	11.11.2011, 17:59 [ТС]	3
	нужно если хоть 1 из степеней палиндром. и без функций. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	11.11.2011, 18:04	4
	Ну тогда и решайте как здесь, только вместо одной проверки пока руки не отнимутся, раз функции использовать Вам вера не позволяет. Найти целые числа, которые при возведении в квадрат дают палиндром 0

@nastenkaa 0 / 0 / 0 Регистрация: 01.10.2011 Сообщений: 67
	11.11.2011, 18:07 [ТС]	5
	нужно с помощью цикл for 0

@nastenkaa 0 / 0 / 0 Регистрация: 01.10.2011 Сообщений: 67
	11.11.2011, 18:35 [ТС]	9
	эта проверка не правильная. например, число 11 никак не будет равно 11^степень 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	11.11.2011, 19:51	10
	Сообщение от nastenkaa число 11 никак не будет равно 11^степень 11^=121 палиндром 0

@nastenkaa 0 / 0 / 0 Регистрация: 01.10.2011 Сообщений: 67
	11.11.2011, 19:54 [ТС]	11
	if p=(ii)or(p=iii)or(p=iiii)or(p=iiiii) then begin writeln(i,' ',ii,' ',iii,' ',iiii,' ',iiiii); но по этой записи 11=121 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	11.11.2011, 19:56	12
	Сообщение от nastenkaa но по этой записи 11=121 Ну я не знаю что нужно выводить, выводи только само число, пусть степени препод сам в уме считает, в условии написано Сообщение от nastenkaa найти все целые числа на диапазоне от 1 до 100 которые вот и выводи только сами числа. 0

@nastenkaa 0 / 0 / 0 Регистрация: 01.10.2011 Сообщений: 67
	11.11.2011, 19:59 [ТС]	13
	вы бы не могли написать задачу с начала до конца. я просто уже запуталась, только без функций, а с for 0

	11.11.2011, 20:13