Mein Versuch Teilbarkeit

Aus ProgrammingWiki

Archivierte Version vom 2011-01-19T13:44:08+00:00. Aktuelle Version

writeln('Juhu');

procedure teilbarkeit;
var z,r,t:Integer;
begin
writeln('Zahl eingeben:');



r:=8 mod 2 ;
if r=0 then writeln('Teiler gefunden')
else writeln('Kein Teiler');
end;

teilbarkeit();

var Lied:String;
    key:integer;
    dauer:integer;
    c:Char; k:Char;
    i:Integer;

Mein Versuch Teilbarkeit

Suche