Menghitung Selang Hari Dengan Program Turbo Pascal
Program SelangHari; Uses Crt; {Deklarasi variable} Var Y1, M1, D1, Y2, M2, D2, UB1, UB2, UT, YX, R1, R2, I1, I2, MX1, MX2, L : Integer; benar : boolean; {Program kami} Begin clrscr; benar := true; Writeln ('Selamat datang di Program Selang Hari'); {Input} repeat begin repeat Write ('Masukan tanggal pertama = '); readln (D1); until ((D1>0) and (D1<=31)); repeat Write ('Masukan bulan pertama = '...