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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 09.04.2010, 11:38   #1
Archeer
Новичок
Джуниор
 
Регистрация: 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.
Archeer вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Подсчёт натуральных чисел. 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