MoBiN.R (10-11-09)
کیهان جان ، عزیز اینو یه تست بزن :
کد:program keihan; uses crt; var a,i,r:integer; begin clrscr; randomize; r:= random(20); while i<=3 do begin writeln('enter a number: '); readln(a); if a=r then begin writeln('you are so lucky! correct!'); break; end; if a<r then writeln('entered number is lower than cpu s!'); if a>r then writeln('entered number is higher than cpu s!'); i:=i+1; writeln('cpu s randomly selected number is: ',r); end; readln end.
آخرین ویرایش توسط sAsAn.K در تاریخ 10-11-09 انجام شده است
<red>از کاربر تا ادمین در Different Level</red>Protected by Norton Internet Security 2012
MoBiN.R (10-11-09)
1 کاربر در حال مشاهده این موضوع. (0 عضو و 1 میهمان)
Bookmarks