Определение цифр, которые удовлетворяют интервалу пользователя

@vitman89 · Регистрация: 24.03.2013

Студворк — интернет-сервис помощи студентам

Здравствуйте.Помогите отредактировать программу.ТЗ:Определить, есть ли среди натуральных чисел из интервала ( a , b ], такие, в которых есть как минимум две цифры, которые равны цифре, заданной пользователем.
Нужно добавить вывод самих чисел которые удовлетворяют условие.

Pascal

program Project5;
function is2(const c:Integer;var num:Integer):Boolean;
var count:Integer;
begin
 count:=0;
 while num<>0 do
begin
 if num mod 10=c then count:=count+1;
num:=num div 10;
end;
is2:=count>=2;
end;
 
function isnum(const a,b,c:Integer):Boolean;
var i,k:Integer;
res:Boolean;
begin
 res:=False;
  for i:=a+1 to b do
begin
 k:=i;
  if is2(c,k) then
begin
res:=True;
 
 end;
  end;
isnum:=res;
end;
 
var a,b,c:Integer;
begin
 Write('a=');
 Readln(a);
  Write('b=');
  Readln(b);
   Write('Цифра=');
   Readln(c);
   Writeln ('с=');
    if isnum(a,b,c) then Writeln('Да,есть такие числа в которых не менее двух таких цифр.') else Writeln('Таких чисел нет.');
   
Readln;
end.

Опции темы