Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
mixon
0 / 0 / 0
Регистрация: 01.06.2010
Сообщений: 6
#1

палиндром - Pascal

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

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

палиндром - Pascal
Помогите, пожалуйста с задачей. Есть число (допустим 196), нужно его перевернуть (691) и сложить с собой (196+691). Получится новое...

палиндром - Pascal
Имя входного файла input.txt Имя выходного файла output.txt Максимальное время работы на одном тесте 2 секунды Ограничение по...

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

Особенный палиндром - Pascal
Нужно проверить строку на палиндром. Только есть особенность: к примеру дана строка: helloolleh (вывод - да) но строка к примеру:...

Четырехзначный палиндром - Pascal
Требуется написать программу, определяющую, является ли четырехзначное натуральное число N палиндромом, т.е. числом, которое одинаково...

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

2
Mad_Dog
Фрилансер
448 / 429 / 27
Регистрация: 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
Модератор
52370 / 40217 / 13559
Регистрация: 18.05.2008
Сообщений: 92,942
02.06.2010, 11:20 #3
Цитата Сообщение от 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
Привет! Вот еще темы с ответами:

Палиндром во времени - Pascal
Найти ближайшее время палиндром во времени. Ввод 00:00 Вывод 01:10 Ввод 12:34 Вывод 13:31 var h,m,mm:integer; procedure...

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

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

Строка-палиндром. - Pascal
Народ,как сделать через while?...и нужно от середины через 2 параметра сравнивать i и j...


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

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

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