Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Задача с циклами., Помогите, пожалуйста, решить. |
| infarkt |
 
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 3 Пол: Мужской Реальное имя: Michael Репутация:  0   |
1) Вывести четные числа из интервала от 50 до 100 в обратном порядке.
2) Организовать ввод чисел до первого нулевого значения. Найти количество максимальных чисел. Желательно через циклы. Сообщение отредактировано: infarkt - |
   |
 
|
infarkt Задача с циклами. 4.04.2012 17:11
Artem7 1) Program chetnie;
Var n:integer;
Begin
n:=100… 4.04.2012 18:21 infarkt За первую спасибо большое.
Во второй, наверное, … 4.04.2012 18:44 Krjuger
var
max:integer;
count:integer;
a:array [1..10… 4.04.2012 19:10 infarkt Спасибо вам. 4.04.2012 19:21
IUnknown
var i : integer;
begin
for i := 50 downto 25 d… 4.04.2012 20:54  |
|
Текстовая версия | 23.12.2025 2:30 |
