 Циклы, строки, массивы |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Тупой прогер |
 20.12.2005 22:32
Сообщение
#1
|
|
Гость  |
Такие задачи:
1. Приписать по 1 в начало и в конец записи числа N. Наример было 5379, стало 153791. 2. Определить, является ли заданное число степенью 3. 3. Выяснить, является ли последовательность цифр натурального числа при просмотре их справа налево возрастающей последовательностью. Наример для числа 76431 ответ положительный, а для 9782 - отрицательный. Если кто-то решит хоть одну задачу из этих трех - буду признателен.  В следующий раз тему с таким названием удалю Сообщение отредактировано: klem4 - 20.12.2005 22:34 |
 
|
|
  |
Ответов
| klem4 |
21.12.2005 21:39
Сообщение
#2
|
 Perl. Just code it!  Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация:  44  |
volvo
 inc(i) то же самое что i := i + 1; inc(i,6) то же самое что i := i + 6; dec(i) - обратная ф-я к inc (уменьшает значение) Сообщение отредактировано: klem4 - 21.12.2005 21:40 -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
   |
|
Сообщений в этой теме
Тупой прогер Циклы, строки, массивы 20.12.2005 22:32
klem4 Все задачи решалсиь, пользуйся поиском
подсказка :... 20.12.2005 22:47 Tupoi_Proger только что проюзал поиск - таких задач не нашел. (... 21.12.2005 20:44 klem4 1)
uses crt;
var
n,temp,count : LongInt;
begin... 21.12.2005 20:52
Tupoi_Proger
inc(count);
спасибо огромное! :)
... 21.12.2005 21:29 volvo Можно проще:
var
n, T: longint;
begin
ReadLn(... 21.12.2005 21:26 Tupoi_Proger спасибо за интересную функцию!
сам решил задач... 21.12.2005 22:16 volvo Ты сам сказал, что проще нельзя...
А вот так:
var
... 21.12.2005 22:22 Tupoi_Proger volvo!
во-первых, твоя прога не работает. она ... 21.12.2005 22:38 volvo Правда? Что ты говоришь... Во первых, учти, что я ... 21.12.2005 22:44 Tupoi_Proger сорри. не правильно набрал твой код. :unsure:
а ... 21.12.2005 23:04 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 21.07.2025 21:29 |