home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 July / Chip_1998-07_cd.bin / tema / sgp / sgpdemo / SUDLICHE.SGP < prev   
Text File  |  1998-04-22  |  1KB  |  37 lines
  1. SGPC   5.00 S#000000 10.09.1993 12:27:32
  2.  
  3. # include <sgpbalt.h>
  4.  
  5. ;-h---------------------------------------------------------------------------
  6. void main( void )
  7. -s--Sudé-Liché                                                                  ■   2  -2 -20   3
  8.          Sudé-Liché
  9.            0c!
  10.            ¼ísla
  11.              *1
  12.            ¼íslo
  13.             p!c
  14.     ____Jaké-ƒíslo?____
  15.     /1                /
  16. Sudé-ƒíslo       Liché-ƒíslo
  17.    s!                l!
  18. -o1- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  19. 0 ;prom╪nné
  20.    int ¼íslo;
  21. c ;ƒti ƒíslo
  22.    TxtPiτⁿet╪zec("Napiτ ƒíslo (0=konec): ");
  23.    Txt¼tiI¼íslo(¼íslo);
  24. p ;napiτ ƒíslo
  25.    TxtPiτⁿet╪zec("¼íslo "); TxtPiτL¼íslo(¼íslo,-1);
  26. s ;napiτ, ºe ƒíslo je sudé
  27.    TxtPiτⁿet╪zec(" je sudé.\n")
  28. l ;napiτ, ºe ƒíslo je liché
  29.    TxtPiτⁿet╪zec(" je liché.\n")
  30. -c1- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  31. *1 ;opakuj dokud je ƒíslo ràzné od nuly
  32.     ¼íslo != 0
  33. /1 ;ƒíslo je sudé - je d╪litelné dv╪ma beze zbytku
  34.     ¼íslo % 2 == 0
  35. =SP---------------------------------------------------------------------------
  36. ;--------------------- Konec programu -------------------
  37.