Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.11.2011, 12:57   #1
theGamer
Новичок
Джуниор
 
Регистрация: 13.11.2011
Сообщений: 1
По умолчанию работа с циклами, не могу понять

Как в delphi через шаг, while u repeat
Вывести по возрастанию нечетные числа, принадлежащие интервалу от [a;b]. Границы интервала задаются с клаиватуры.
Безумно сложная задача для меня, т.к с циклами я не работал
theGamer вне форума Ответить с цитированием
Старый 13.11.2011, 13:08   #2
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

Код:
program Task1;

var
            a, b, i : Integer;

begin
            ReadLn (a,b);
            if Odd (a) then
                        i := a
            else
                        i := a+1;
            while i <= b do  begin
                        WriteLn (i);
                        Inc (i,2);
            end;
end.
Poma][a вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа с циклом ( находим сумму) - не могу понять , где ошибся ) zipo666 Помощь студентам 3 01.11.2011 12:51
работа с циклами Triksi Помощь студентам 3 26.06.2011 10:53
работа с циклами серг Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 5 22.04.2010 21:34
Работа с циклами DOJ Общие вопросы C/C++ 3 27.08.2009 18:39
Работа с циклами. Надюха Помощь студентам 3 26.10.2007 09:29