uses crt; var f,t:text; yan,ch:char; s,z:string; i:byte; procedure buyuk; begin for i:=1 to length(s) do s:= upcase(s); end; procedure ekle; begin clrscr; append(f); write(’ad soyad.(max.20 harf):’);r… dahası →
Programlama2000 Software & Internet Securityadnanyilgen wrote 1 month ago: 1. bir güzel şehir sineması mayıs ayı gelmiş sanırım ikinci vizeler sonrası. tutulacak sözler olur … more →
programlama2000 wrote 1 year ago: uses crt; var f,t:text; yan,ch:char; s,z:string; i:byte; procedure buyuk; begin for i:=1 to length(s … more →