 решение задач с помощью цикла while |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Yaroslav |
 4.12.2004 14:41
Сообщение
#1
|
|
Новичок  Группа: Пользователи Сообщений: 26 Пол: Мужской Репутация:  0   |
1)найти количество цифр числа с помощью цикла while!!!
2)найти вторую цифру числа с помощью цикла while!!! 3)найти среднюю цифру числа если в числе нечётное количество цифр с помощью цикла while!!! 4)каких цифр в числе больше?единиц или нулей?с помощью цикла while!!! 5)получить число записанное теми же цифрами в обратном порядке с помощью цикла while!!! 6)выяснить является ли число палиндромом с помощью цикла while!!! 7)найти первую цифру числа с помощью цикла while!!! Внимательнее смотри на правила. Цитата 1. Заголовок или название темы должно быть информативным и понятным другим посетителям форума. Сообщение отредактировано: volvo - 4.12.2004 14:43 |
   |
 
|
  |
Ответов
| Jahnerus |
5.12.2004 12:59
Сообщение
#2
|
 Уникальный Группа: Пользователи Сообщений: 64 Пол: Мужской Репутация: 2 |
volvo
Да а ещё бывает и такое  Код ....... if b=true then .... Это всё из отряда тафталогии! -------------------- Век живи, век учи С © by Jahnerus
|
|
|
|
Сообщений в этой теме
Yaroslav решение задач с помощью цикла while 4.12.2004 14:41
volvo 1.
var
n, count: integer;
begin
... 4.12.2004 14:48 ShadowWatcher 3).
Function GetCount(n:Integer)... 4.12.2004 15:00 volvo ShadowWatcher
:angry: Проверяй, пожалуйста, прог... 4.12.2004 15:09 mithquessir 4.
var
a1,a0,count: integer;
... 4.12.2004 20:43 mithquessir 2.
var
a2,count:integer;
n,k... 4.12.2004 21:11 mithquessir 7.
Аналогично 2, только меняй
...if count = 2 the... 4.12.2004 21:15 Флогримм 5
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 20.07.2025 18:40 |