Algoritma & Pemrograman 2 Bahasa Pascal
TUGAS AKHIR MODUL 3 No. 2 program pascal; var a,b,c,d,e,f : string ; begin a := ' Pascal' ; b := ' Pasca' ; c := ' Pasc' ; d := ' Pas' ; e := ' Pa' ; f := ' P' ; writeln ('= ',a); delete (a,6,6) writeln ('= ',b); delete (a,5,6) writeln ('= ',c); delete (a,4,6) writeln ('= ',d); delete (a,3,6) ...