Kód: Vybrať všetko
function delenie(a:integer; b:integer):boolean
begin
if ((a mod b) = 0) or ((b mod a) = 0)
delenie:=true
else
delenie:=false;
end;
Yevin napísal:Zdar lidi. Spravil by mi niekto program na toto :
Program si od uzivatela vyziada 2 cele cisla. Funkcia vyhodnoti, ci je jedno cislo celociselnym delitelom toho druheho. Funkcia nemoze pracovat s globalnymi premennymi, rovnako nemoze funkcia od uzivatela nic pytat, ani vypisat na obrazovku.
potrebujem si to overiť. DIKY
Kód: Vybrať všetko
program kikiriki;
function jedelitel(c1,c2:integer):boolean;
begin
result := (c1 mod c2 = 0) or (c2 mod c1 = 0);
end;
var cislo1,cislo2:integer;
begin
writeln('zadaj cislo 1: ');
read(cislo1);
writeln('zadaj cislo 2: ');
read(cislo2);
writeln(jedelitel(cislo1,cislo2));
end;
dat to rovno cez div ma nenapadlo ja som to daval dost zlozitejsie ale takto to je lepsie 
inak co je "result" som v zivote nevidel 
