je_cele <- function(cislo) {
    zbytek = cislo - round(cislo)
    return(zbytek == 0)
}