Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Циклы, строки, массивы |
| Тупой прогер |
Сообщение
#1
|
|
Гость  |
Такие задачи:
1. Приписать по 1 в начало и в конец записи числа N. Наример было 5379, стало 153791. 2. Определить, является ли заданное число степенью 3. 3. Выяснить, является ли последовательность цифр натурального числа при просмотре их справа налево возрастающей последовательностью. Наример для числа 76431 ответ положительный, а для 9782 - отрицательный. Если кто-то решит хоть одну задачу из этих трех - буду признателен.  В следующий раз тему с таким названием удалю Сообщение отредактировано: klem4 - |
 
|
|
  |
| volvo |
Сообщение
#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 |
|
|
|
| Tupoi_Proger |
Сообщение
#3
|
|
Группа: Пользователи Сообщений: 6 Пол: Мужской Репутация:  0  |
сорри. не правильно набрал твой код.
 а с третей... поламаю еще голову.  еще 2 дня до крайнего срока. в принципе время есть... |
   |
|
Тупой прогер Циклы, строки, массивы 21.12.2005 2:32
klem4 Все задачи решалсиь, пользуйся поиском
подсказка :… 21.12.2005 2:47 Tupoi_Proger только что проюзал поиск - таких задач не нашел. (… 22.12.2005 0:44 klem4 1)
uses crt;
var
n,temp,count : LongInt;
begin… 22.12.2005 0:52
Tupoi_Proger
inc(count);
спасибо огромное! :)
… 22.12.2005 1:29 volvo Можно проще:
var
n, T: longint;
begin
ReadLn(… 22.12.2005 1:26 klem4 volvo :good:
inc(i) то же самое что i := i + 1;… 22.12.2005 1:39 Tupoi_Proger спасибо за интересную функцию!
сам решил задач… 22.12.2005 2:16 volvo Ты сам сказал, что проще нельзя...
А вот так:
var
… 22.12.2005 2:22 Tupoi_Proger volvo!
во-первых, твоя прога не работает. она … 22.12.2005 2:38 |
|
Текстовая версия | 12.09.2025 22:38 |
