|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.05.2014, 21:26 | #1 |
Новичок
Джуниор
Регистрация: 27.05.2014
Сообщений: 2
|
Написать программу, позволяющую определить является ли натуральное число палиндромом.
Помогите написать программу с использование функций или процедур
Написать программу, позволяющую определить является ли натуральное число палиндромом. |
27.05.2014, 21:59 | #2 |
Участник клуба
Регистрация: 05.11.2013
Сообщений: 1,601
|
|
27.05.2014, 22:09 | #3 |
Новичок
Джуниор
Регистрация: 27.05.2014
Сообщений: 2
|
uses crt;
var a,b,c:word; begin write('Введите число:');readln(a); b:=0; c:=a; while c>0 do begin b:=b*10+c mod 10; c:=c div 10; end; if a=b then write('Да') else write('Нет') end. Как просто делать программу с полиндромом знаю. а вот через процедуры и функции нет. |
27.05.2014, 22:13 | #4 |
Участник клуба
Регистрация: 05.11.2013
Сообщений: 1,601
|
|
27.05.2014, 22:57 | #5 |
Made In USSR!
Старожил
Регистрация: 01.09.2010
Сообщений: 3,657
|
Код:
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой" |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
набор подпрограмм для выполнения операций над числами ( 1.Определение является ли число палиндромом; 2.Реверсирование числа) | tweeker | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 18.12.2013 19:33 |
Является ли число палиндромом | Miserable_Silence | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 21.10.2012 16:18 |
Дано натуральное число п. Написать программу для определения первой цифры числа п. | AlenaVasilenko | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 17.06.2011 18:23 |
Определить, является ли число палиндромом | Princesse | JavaScript, Ajax | 9 | 02.10.2009 00:23 |
является ли заданное натуральное число совершенным | Савинова | Помощь студентам | 3 | 19.11.2008 09:51 |