Navigace: Hlavní stránka -> PASCAL -> 10 Znaky, texty ->10.07 Určení pohlaví z rodného čísla

MENU

10.07 Určení pohlaví z rodného čísla

Zadání:
Sestavte program, který ze zadaného rodného čísla určí pohlaví.
Řešení:
Program otestuje pomocí příkazu CASE třetí znak zadaného rodného čísla a podle jeho hodnoty vytiskne příslušný text. 
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var rc:string;


begin

   write('Zadejte rodne cislo: ');
   readln(rc);

   case rc[3] of
      '0','1': writeln('MUZ');
      '5','6': writeln('ZENA');
      else writeln('Neplatne rodne cislo');
   end;

   readln;

end.
program ke stažení