Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Помогите сделать обратную программу. Паскаль 
:(
    Опции темы
jura1006
Дата 23.11.2014, 16:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 1
Регистрация: 23.11.2014

Репутация: нет
Всего: нет
Суть: мы вводим номер палиндрома и программа его выдает - палиндром - такие числа(начиная с 1 и выше) которые на оборот будет такими (111,121,9,99,898) нужно наоборот - я ввожу палиндром - программа его номер(по возрастанию) 



Var
N,i,k : Longint;

Function IntRevers(a : Longint) : Longint;
Var k : Longint;
Begin
k:=0;
While a>0 do
Begin
k:=k*10+(a mod 10);
a:=a div 10;
end;
IntRevers:=k;
end;

Function IsPali(B : Longint) : Boolean;
Begin
IsPali:=(B=IntRevers(B));
end;

Begin
readln(N); 
i:=0;
For k:=1 to 2147483647 do
Begin
If IsPali(k) then Inc(i);
If i=N then Break;
end;
If IsPali(k) then Writeln('Палиндром № ',i,' = ',k);
end.

Это сообщение отредактировал(а) jura1006 - 23.11.2014, 16:26
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Добро пожаловать в раздел "Другие языки" форума Vingrad!

Void
Void

Раздел посвящён различным языкам программирования, для которых (в силу невысокой популярности) нет отдельного раздела (GPSS, Lua, MATLAB, Ada, Forth, Smalltalk, Tcl, REXX, AWK и др.)

  • Обязательно следуйте правилам Форума.
  • Пожалуйста, прочитайте и следуйте рекомендациям по работе в разделе и навигации по Форуму.
  • Для вставки текстов исходных кодов используйте подсветку синтаксиса из выплывающего списка Код в форме ответа. Если Ваш язык в списке не представлен, то используйте тег: [code=ваш_язык]код[/code], например, [code=ada]код[/code]. Если в будущем подсветка синтаксиса для указанного языка будет реализована, исходный код преобразится.
  • Помните, один вопрос - одна тема.

Приятного времяпрепровождения! С уважением, Void, kemiisto .
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Другие языки | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0789 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.