Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
mixon
0 / 0 / 0
Регистрация: 01.06.2010
Сообщений: 6
#1

палиндром

02.06.2010, 10:51. Просмотров 1020. Ответов 2
Метки нет (Все метки)

найти все меньшие ста числа-палиндромы, которые при возведении в квадрат дают также палиндромы.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.06.2010, 10:51
Ответы с готовыми решениями:

палиндром
Имя входного файла input.txt Имя выходного файла output.txt Максимальное...

палиндром
Помогите, пожалуйста с задачей. Есть число (допустим 196), нужно его...

Палиндром
Составить программу для поиска натуральных чисел меньше 100,которые при...

Число палиндром
Назовем число палиндромом, если оно не меняется при перестановке его цифр в...

Палиндром во времени
Найти ближайшее время палиндром во времени. Ввод 00:00 Вывод 01:10 Ввод 12:34...

2
Mad_Dog
Фрилансер
449 / 430 / 117
Регистрация: 01.06.2010
Сообщений: 1,315
02.06.2010, 11:01 #2
Код
for i:=1 to 9 do
  begin
    X:=sqr(11*i);    
    //а теперь нужно определить, является ли X палиндромом...
  end
в предположении, что отрицательные числа в расчет не берутся...
1
Puporev
Модератор
54221 / 41854 / 28923
Регистрация: 18.05.2008
Сообщений: 98,535
02.06.2010, 11:20 #3
Лучший ответ Сообщение было отмечено mixon как решение

Решение

Цитата Сообщение от Mad_Dog Посмотреть сообщение
X:=sqr(11*i);
Числа 1,2,3 тоже меньше 100, причем палиндромы и квадраты их палиндромы.

Добавлено через 6 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
uses crt;
function Palindrom(n:longint):boolean;
var m,p:longint;
    i,k:integer;
begin
m:=n;
p:=0;
while m>0 do
  begin
    i:=m mod 10;
    p:=p*10+i;
    m:=m div 10;
  end;
if p=n then Palindrom:=true
else Palindrom:=false;
end;
var i:word;
begin
clrscr;
writeln('Числа от 1 до 99, палиндромы и квадраты их палиндромы:');
for i:=1 to 99 do
if Palindrom(i) and Palindrom(i*i) then
writeln(i:2,i*i:6);
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.06.2010, 11:20

про палиндром
Составить программу, которая определяет, является ли заданное натуральное число...

Строки/Палиндром
Всем добрый день :) Столкнулся с таким заданием: дана строка, и нужно...

число палиндром?
Установить, является ли заданное натуральное число n палиндромом (одинаково...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru