home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1997 July
/
Chip_1997-07_cd.bin
/
tema
/
baltazar
/
sgpbc
/
sudliche.sgp
< prev
next >
Wrap
Text File
|
1997-05-19
|
1KB
|
37 lines
SGPC 3.00 S#000000 10.09.1993 12:27:32
# include <baltazar.h>
;-h---------------------------------------------------------------------------
void main( void )
-s--Sudé-Liché ■ 2 -2 -20 3
Sudé-Liché
0c!
¼ísla
*1
¼íslo
p!c
____Jaké-ƒíslo?____
/1 /
Sudé-ƒíslo Liché-ƒíslo
s! l!
-o1- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
0 ;prom╪nné
int ¼íslo;
c ;ƒti ƒíslo
TxtPiτⁿet╪zec("Napiτ ƒíslo (0=konec): ");
Txt¼tiI¼íslo(¼íslo);
p ;napiτ ƒíslo
TxtPiτⁿet╪zec("¼íslo "); TxtPiτL¼íslo(¼íslo,-1);
s ;napiτ, ºe ƒíslo je sudé
TxtPiτⁿet╪zec(" je sudé.\n")
l ;napiτ, ºe ƒíslo je liché
TxtPiτⁿet╪zec(" je liché.\n")
-c1- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
*1 ;opakuj dokud je ƒíslo ràzné od nuly
¼íslo != 0
/1 ;ƒíslo je sudé - je d╪litelné dv╪ma beze zbytku
¼íslo % 2 == 0
=SP---------------------------------------------------------------------------
;--------------------- Konec programu -------------------