Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] Подсчитать количество натуральных чисел

Автор: Archeerman 9.4.2010, 10:36

Составить блок схему для программы:"Подсчитать количество натуральных чисел, принадлежащих отрезку [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.