1. Diese Seite verwendet Cookies. Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies. Weitere Informationen

Modulo + Schleife

Dieses Thema im Forum "Pascal" wurde erstellt von Aldi83, 3. März 2014.

  1. Aldi83

    Aldi83 New Member

    Code:
    program ungerade_gerade_Zahl;
    
    uses crt;
    
    var Zahl, Eingabe: integer;
     
    Begin
      clrscr;
        Eingabe:= 1; 
        while Eingabe <> 0 do
          begin
            writeln (' Dieses Programm prüft die eingegebene Zahl auf gerade oder ungerade');
            writeln ('');
            writeln (' Geben Sie eine Zahl ein');
            writeln ('');
            Readln (Eingabe);
            Zahl:= Eingabe mod 2;
         
              if Zahl =1 then
              begin
                writeln (' Die Zahl ist ungerade');
              end
                  else
                    begin   
                        writeln ('Die Zahl ist gerade');
                    end;
          end;   
             
    readkey 
    End.      
    Das Programm soll eine eingegebene Zahl auf gerade oder ungerade prüfen und den Vorgang sollange wiederholen bis Eingabe 0 erfolg!!
  2. chris12

    chris12 Member

    Schaut richtig aus, wo ist dein Problem?
  3. Aldi83

    Aldi83 New Member

    Hab es schon hinbekommen!!