|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
10.09.2012, 18:08 | #1 |
Пользователь
Регистрация: 06.09.2012
Сообщений: 51
|
Ввести четырехзначное число. Определить симметрично ли оно. (Pascal)
Добрый день! Вот задача, мне надо решить. Но я понятия не имею, с чего начать и как сделать, чтобы программа начала высчитывать симметрично ли число или нет. В голове не могу представить программу и алгоритм её решения. С чего мне начать?
|
10.09.2012, 18:12 | #2 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,323
|
Нужно разбить число на цифры с помощью mod и div.
Потом остается сравнить цифры и выдать ответ.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
|
10.09.2012, 18:33 | #3 |
Пользователь
Регистрация: 06.09.2012
Сообщений: 51
|
|
10.09.2012, 18:55 | #4 |
Новичок
Джуниор
Регистрация: 11.10.2011
Сообщений: 3,882
|
Симметрия числе это как? (Нет сарказма, просто не знаю) Это 1111, 1221 ?
Ладно, если я предположил правильно, то вот код : Код:
Если можно использовать строку, то можно намного короче. И так же в наше время развит поиск, (если я правильно понял смысл числовой симметрии, то она = палиндром), так что есть гугл, яндекс, да и на самом форуме поиск работает замечательно. И Удачи, Тезка Последний раз редактировалось Poma][a; 10.09.2012 в 19:12. |
10.09.2012, 19:09 | #5 |
Пользователь
Регистрация: 06.09.2012
Сообщений: 51
|
|
10.09.2012, 19:15 | #6 | ||
Новичок
Джуниор
Регистрация: 11.10.2011
Сообщений: 3,882
|
Цитата:
Цитата:
|
||
10.09.2012, 19:58 | #7 |
Пользователь
Регистрация: 01.09.2012
Сообщений: 88
|
Это не симметрия а число на оборот.
А симметричные числа это 1221, 3223 ... var a,b,c:integer; begin readln(a); c:=a; while c<>0 do begin b:= b*10 + c mod 10; c:=c div 10; end; if a=b then write('da') else write('net'); end.
Программист - это не тот, кто пишет программы, а тот, чьи программы работают.
Последний раз редактировалось domovou; 10.09.2012 в 20:01. |
10.09.2012, 20:04 | #8 |
Новичок
Джуниор
Регистрация: 11.10.2011
Сообщений: 3,882
|
domovou, код на форуме нужно выделять тегом [CODE] (кнопочка с решеткой (#))
|
10.09.2012, 20:21 | #9 |
Пользователь
Регистрация: 24.04.2012
Сообщений: 68
|
А является ли симметрией 2323??
|
10.09.2012, 20:27 | #10 |
Новичок
Джуниор
Регистрация: 11.10.2011
Сообщений: 3,882
|
Нет. Отделите первые две цифры, переверните их, сравните с другими 2 цифрами, если равны, то они симметричны.
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Ввести однозначное число и определить его четность в ассемблере | kachur76 | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 0 | 29.01.2012 23:07 |
Дано число a. Как определить, четное оно, или нечетное? | pahanzona | Общие вопросы Delphi | 5 | 09.03.2011 12:49 |
как на делфи написать прогу Ввести с клавиатуры целое число и определить делится ли оно нацело на9и на11 | Buyaka | Помощь студентам | 8 | 02.01.2010 23:54 |
Ввести число N и определить делится ли оно без остатка на число M (VBA) | Ivanich | Microsoft Office Excel | 7 | 24.04.2008 19:43 |