Matematické Fórum

Skrytý text:

program Dobra_cisla;

{$APPTYPE CONSOLE}
//V programu nejsou osetreny spatne vstupy (t.j zadame cislo mimo interval
//nebo kdyz cislo neni cele nebo kdyz nezadame cislo, ale napr. nejaky text)
uses
  SysUtils;
var n,k:Integer;

function DoCi(c:Integer):Boolean; //funkce na zjisteni dobreho cisla
var i,suma:Integer;
    s:String;
begin
  Result := False;  //na zacatku je vystup nepravda
  s := IntToStr(c); //prevod cisla na string
  suma := 0;        //citac
  for i := 1 to Length(s) do  //cyklus od 1 do delky cisla bere postupne cislice
  begin
    if s[i]='0' then  //kdyz narazi na nulu tak skonci->nulou nedelime,nemuze byt
      Exit;             //dobre cislo
    if c mod StrToInt(s[i])=0 then //kdyz je cislo delitelne cislici zvysime citac
      suma := suma+1;              //o jednu
  end;
  if suma=Length(s) then  //kdyz je citac stejne velky jako delka cisla, to je
    Result := True;           //cislo je delitelne kazdou cislici, tak vystup je pravda
end;

begin
  WriTeLn('--------- Program na dobra cisla ---------');
  Write('Zadej cele cislo v intervalu <0,10000) ');
  ReadLn(n);
  k := n+1;  //zaciname cislem o jednu vetsim nez jake jsme zadali cislo
  while not DoCi(k)do  //cyklus dokud nenarazime na dobre cislo tak
    k := k+1;          //ho zvetsujeme o 1
  WriteLn;
  WriteLn('Prvni dobre cislo vetsi nez ',n,' je cislo ', k); //vypis
  ReadLn;  //ceka na stisk libovolne klavesy a pak skonci
end.