Κοµπιουτεράκι µε functions
program Calculator4(input, output); var x1, x2, apotelesma: real; praxh: char; function PROSTHESE (x, y : real ): real; begin PROSTHESE := x + y end;…
April 10, 2016
Νέα άσκηση με υποπρογράμματα
function DISECTO (ETOS: integer):boolean; {υπολογίζει αν το ETOS είναι δίσεκτο} begin DISECTO:= (ETOS mod 4 = 0) and ( (ETOS mod 100 <> 0) or (ETOS mod…