 Циклы, строки, массивы |
Прочтите прежде чем задавать вопрос!
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 |
 
|
|
  |
Ответов
| volvo |
21.12.2005 22:44
Сообщение
#2
|
|
Гость |
Правда? Что ты говоришь... Во первых, учти, что я ВСЕ программы тестирую... И если я ее выложил, то будь уверен, она прошла как минимум 3 полных теста... А во вторых - теперь решай 3-ю задачу сам...
P.S. Вот лог работы программы: Цитата Running "f:\vlady documents\programs\pas\__als.exe /sum 20.5 63.2" 4 no Running "f:\vlady documents\programs\pas\__als.exe /sum 20.5 63.2" 8 no Running "f:\vlady documents\programs\pas\__als.exe /sum 20.5 63.2" 27 yes |
|
|
|
Сообщений в этой теме
Тупой прогер Циклы, строки, массивы 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 klem4 volvo :good:
inc(i) то же самое что i := i + 1;... 21.12.2005 21:39 Tupoi_Proger спасибо за интересную функцию!
сам решил задач... 21.12.2005 22:16 volvo Ты сам сказал, что проще нельзя...
А вот так:
var
... 21.12.2005 22:22 Tupoi_Proger volvo!
во-первых, твоя прога не работает. она ... 21.12.2005 22:38 Tupoi_Proger сорри. не правильно набрал твой код. :unsure:
а ... 21.12.2005 23:04 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 21.07.2025 21:35 |