|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
09.04.2010, 11:38 | #1 |
Новичок
Джуниор
Регистрация: 09.04.2010
Сообщений: 1
|
Подсчитать количество натуральных чисел
Составить блок схему для программы:"Подсчитать количество натуральных чисел, принадлежащих отрезку [a,b] в записи которых не четные цифры отсутствуют"
Program _6; var cnt, a, b : word; function have_even(dig:word):boolean; var res : boolean; begin res := false; repeat res := res or ((dig mod 10) mod 2 = 1); dig := dig div 10; until res or (dig = 0); have_even := res; end; begin write('Nachalo intervala a='); readln(a); write('Konec intervala b='); readln(b); cnt := 0; while a<=b do begin if not have_even(a) then inc(cnt); inc(a) end; writeln('Naideno ', cnt, ' chisel, v zapisi kotorix otsutstvuyt nechetnie cifri') end. Последний раз редактировалось Archeer; 09.04.2010 в 12:27. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Подсчёт натуральных чисел. | GGman | Microsoft Office Excel | 1 | 05.05.2009 15:08 |
Последовательность натуральных чисел | 777UFO777 | Общие вопросы Delphi | 23 | 03.12.2008 20:42 |
Подсчитать количество чисел с заданной суммой цифр | belovv | Помощь студентам | 3 | 25.12.2007 20:55 |