Etiket: turkirc.com mirc indir

program asgari_gecim_indiri; uses crt; const s_oran = 50; var med,es : char; cocuk : 1..15; oran : real; begin {$R+} clrscr; write(‘Evlimisin bekarmsn? (e yada h ) > ‘); readln(med); writeln; if med in [‘H’,’h’] then begin write(‘Asgari ge‡im indirim orannz ‘, s_oran); end else begin write(‘EŸiniz ç‡alŸyor mu? (e yada h ) > ‘); readln(es); writeln; if es in […]