Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  ddd
Language: PASCAL
Code:
program rodne_cislo;
uses crt;
var povodne_rc,pomocne_rc:longint;
     den,mesiac,rok:byte;
begin
     clrscr;
     write('Zadaj rodne cislo');
     readln(povodne_rc);
     pomocne_rc:=povodne_rc;
     den:=pomocne_rc mod 100;
     pomocne_rc.=pomocne_rc div 100;
     Readln
end.          
Comments: