IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> симметричная строка
сообщение
Сообщение #1


Гость






Помогите задачу решить,пожалуйста. Читается ли введенное целое число,имеющее 2 и более знаков одинаково справа на лево и слева на право?
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Смотрю...
*****

Группа: Пользователи
Сообщений: 1 055
Пол: Мужской
Реальное имя: Пшеничный Алексей Анатольевич

Репутация: -  6  +


Вот на скорую руку сваял...

Код
Var St : String;
i : Byte;
Begin
 Write('Число: '); Readln(St);
 For i:=1 to (Length(St) div 2) do
   If St[i]<>St[Length(St)-i+1] then
   Begin
      Writeln('Не соответствует требованиям.');
      Halt(0);
   End;
   Writeln('Соответствует требованиям.');
End.


--------------------
Если что-то не делает того, что вы запланировали ему делать - это еще не означает, что оно бесполезно.
--------------------
Прежде, чем задать вопрос - Правила :: FAQ :: Поиск
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
tigrа   симметричная строка   1.10.2004 0:10
APAL   Подобная задача уже рассматривалась в этом разделе…   1.10.2004 0:13
APAL   Вот на скорую руку сваял... Var St : String; …   1.10.2004 0:17
tigra   Спасибо большое, все работает Вот только выдержк…   1.10.2004 22:48
GoodWind   в конце программы поставить... перед конечно …   2.10.2004 1:27
Altair   Uses CRT; Var St : String; i : Byte; Begin…   2.10.2004 10:19
APAL   Или просто нажать Alt+F5 по окончанию работы... :…   2.10.2004 15:55
Altair   Именно. tigra, а вы заходили в инет из интернет …   2.10.2004 18:36
tigra   Сплошной offtop: Нет, я из дома. Про то что до E…   3.10.2004 0:24
tigra   ДА ! это можно сделать как то так: repeat …   3.10.2004 0:30
GoodWind   правильно repeat until keypressed;   3.10.2004 8:59
Altair   Он у Вас (можно на "ты" перейти? ) не п…   3.10.2004 11:42
APAL   Тогда заменить Repeat-Until на Readln;   3.10.2004 13:47
GoodWind   ну ето на нажатие enter, а если юзверь будет нажи…   3.10.2004 19:57
tigra   Ну вот теперь все нормал, спасибо! :) да,коне…   4.10.2004 0:17


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 17.06.2024 10:26
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name