Mein Versuch Teilbarkeit

Aus ProgrammingWiki

writeln('Juhu');

ausführen

procedure teilbarkeit; var r,i:Integer; begin for i:=1 to 100 do begin r:=100 mod i ; if r=0 then writeln(i,' ist ein Teiler von 100'); end; end;

teilbarkeit();

ausführen

procedure teilbarkeit2 (x : integer); var z,r,i:Integer; begin z:=x; for i:=1 to z do begin r:=z mod i ; if r=0 then writeln(i,' ist ein Teiler von z'); end; end;

teilbarkeit2(StrToInt(inputDialog('Welche Zahl soll geprüft werden')));

ausführen

function primzahl (z : integer):boolean; var a,r,t,i : integer; begin t:=0; a:=z; for i:=1 to a do begin r:=a mod i; if r=0 then t:=t+1; end; if t>2 then result:=false else result:=true; end;

primzahl(StrtoInt(inputDialog('Gib eine Zahl ein: ')));

ausführen