Chào mừng Bạn tham gia Diễn Đàn VNKienThuc.com - Định hướng Forum Kiến Thức
- HÃY TẠO CHỦ ĐỀ KIẾN THỨC HỮU ÍCH VÀ CÙNG NHAU THẢO LUẬN
Kết nối: VNK X - VNK groups | Nhà Tài Trợ: BhnongFood X - Bhnong groups - Đặt mua Bánh Bhnong

Trả lời chủ đề

Nội dung: <blockquote data-quote="Trung Kiên" data-source="post: 147501" data-attributes="member: 3">1.[code]Uses Crt;Var  St:String; {Hàm POSNUM kiểm tra xem trong xâu St có ký tự chữ số hay không? Nếu có, hàm trả về vị trí đầu tiên của ký tự chữ số, ngược lại hàm trả về giá trị 0}Function POSNUM(St:String):Byte;Var  OK:Boolean;        i:Byte;Begin    OK:=False;    i:=1;    While (i<=Length(St)) AND (Not OK) Do        If St[i] IN [‘0’..’9’] Then OK:=True        Else i:=i+1;    If OK Then POSNUM:=i Else POSNUM:=0;End; Begin    Write(‘Nhap xau St: ‘); Readln(St);    While POSNUM(St)<>0 Do Delete(St,POSNUM(St),1);    Write(‘Xau sau khi xoa: ‘,St);    Readln;End.[/code]</blockquote>