Mein Versuch Teilbarkeit

Aus ProgrammingWiki

Archivierte Version vom 2011-01-19T13:42:17+00:00. Aktuelle Version

writeln('Juhu');

procedure teilbarkeit;
var z,r,t:Integer;
begin
writeln('Zahl eingeben:');
readln(z);
write('Teiler eingeben:');
readln(t);
r:=z mod t;
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