Mein Versuch Teilbarkeit

Aus ProgrammingWiki

writeln('Juhu');

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();

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')));

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: ')));

Mein Versuch Teilbarkeit

Suche