1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| MapK |
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 4 Пол: Мужской Репутация: 0 |
1. Вывести на экран чётные числа по убыванию от a до b.
2. Вывести максимум и минимум на экран. 3. Поменять максимум и минимум местами. Заранее благодарен. Сообщение отредактировано: MapK - |
![]() ![]() |
| Ozzя |
Сообщение
#2
|
![]() Гуру ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
Цитата но надо использовать mod и div В исходном задании этого условия не было. Сам исправишь. Вот в этой if not odd(i) thenстроке Сообщение отредактировано: Ozzя - |
MapK Вывести на экран числа(использовать mod и div) 10.12.2009 18:26
Ozzя 1.
var
i,a,b,temp: Integer;
begin
readln(a,b);… 10.12.2009 19:55
MapK
1.
var
i,a,b,temp: Integer;
begin
readln(a,b)… 10.12.2009 20:58
MapK Все спасибо сделал, еще бы 2 и 3 задания :)
Как … 10.12.2009 21:43
Lapp Как + в репутацию поставить? :)Читай Правила.
Я … 11.12.2009 6:38
Ozzя var
i,a,b,temp,max,min: Integer;
begin
readln(… 11.12.2009 12:11![]() ![]() |
|
Текстовая версия | 8.11.2025 6:53 |