@galinka načítajte zo vstupu dve čísla A.B- Vytvorte funkciu na zistenie či je A delitelne číslom B. Využite to na zistenie delitelnosti šiestych načítaných čísel. vedela by si takýto program?..súrne ho potrebujem..
@nicollett Nemam rad, ak su ludia nuteny do niecoho, comu sa uz nikdy nebudu venovat. Ak nikdy nebudes venovat programovaniu a zaroven mas nejaku ine v zivote, comu sa skutocne venujes, naozaj hocico, tak mozes pouzit kod nizsie. Ak to nie je pravda, tak nie, lebo potom si lajdak, ktory nic so sebou nerobi a navyse sa vyhyba aj troche presneho myslenia. Neviem, kto si, ale vies za akych podmienok mozes pouzit moj kod.
Roleta je špeciálny inkognito mód, ktorým skryješ obsah obrazovky pred samým sebou, alebo inou osobou v tvojej izbe (napr. mama). Roletu odroluješ tak, že na ňu klikneš.
11 komentov
var a,b:integer;
begin
a:=strtoint(Edit1.text);
b:=strtoint(Edit2.Text);
if (a mod b)=0 then
Label2.Caption:='Číslo A je deliteľné číslom B bezo zvyšku.'
else Label2.Caption:='Číslo A NIE JE deliteľné číslom B bez zvyšku.'
end;
end.
// Teraz si to len prerob na tých 6 čísel
var a,b:integer;
begin
a:=strtoint(Edit1.text);
b:=strtoint(Edit2.Text);
if (a mod b)=0 then
Label2.Caption:='Číslo A je deliteľné číslom B bezo zvyšku.'
else Label2.Caption:='Číslo A NIE JE deliteľné číslom B bez zvyšku.'
end;
end.
// Už si to len prerob na tých 6 čísel
Tak snáď aspoň pochopí ten princíp čo má napísať v pascale, bolo by to to isté len tam treba zmeniť ten Edit, Label a Procedure
a , b zadáš (tie čísla), c sa bude po každom porovnaní zvyšovať o 1 až dokiaľ nedosiahne hodnotu 6 a vtedy program skončí ...