... lên. Chương trình mà em học sinh đã sửa như sau: Program baitap5; Uses Crt; Var St: String[25]; i:Byte; Begin Write(‘Nhap xau St: ‘); Readln(St); Write(‘ketqua la:’); For i:= length(St) ... thấy phấn chấn và hào hứng học tập. Chương trình: Program baitap5; Uses Crt; Var St: String[25]; i:Byte; Begin Write(‘Nhap xau St: ‘); Readln(St); Write(‘ketqua la:’); Textcolor(2); ... trên màn hình. i:Byte; Begin Write(‘Nhap xau St: ‘); Readln(St); For i:=length(St) downto 1 do write(St[i]); Write( Xau nguoc cua xau st la: ‘, St); Readln; End. Bài tập 4:...
... {Khong nho ky tu ket thuc xau trong pascal la gì :( } dec(p); break; end; end; inc(p); end;end;var n,i:integer; s2:xaukep;BEGINtachtu('Chuong trinh viet nguoc xau& apos;,s2,n);for i:=n-1 ... delete(s,i+1,' ') else i:=i+1;B2 đếm số từ trong xau program demsotu;Var S:string;i,d:byte;Beginwrite('Nhap vao xau: ');Readln(S);S:=S+' ';d:=0;For i:=1 to ... length(S) doif (S[i]<>' ') and (S[i+1]=' ') then inc(d);write(&apos ;Xau co so tu la:',d);ReadlnEnd.B3 Lập trình nhập vào một xâu từ bàn phím. Hãy biến đổi xâu...
... evBsin = ma = mαRv2 với a =Rv2 là gia tốc hướng tâm ; α = (B,vrr) là góc hợp bởi hai vectơ vr và ⇒ R = BrαsinvBemv - Nếu xét e vừa rời khỏi katod thì : v = vomax r và...
... Nam, có thể kể đến một số trang web chuyên kinh doanh trực tuyến như www.123mua.com.vn, www.travel.com.vn, www.megabuy.vn, www.thegioididong.com Đến nay, nhiều người đã tỏ ra khá năng động ... hàng xong thì Phương lên trang mạng của nơi đặt hàng để xem xét mẫu, hỏi những - MSN Spaces - LiveJournal Hiện diện trực tuyến miễn phí với chương trình Google Page Creator Google Page Creator ... ngày càng nhiều. (Ảnh: saigonnews.vn)Có thể kể đến một số trang như: www.123mua.com.vn, www.travel.com.vn, www.megabuy.vn, www.thegioididong.com Hãng hàng không Pacific Airlines cũng khẳng định...
... 100.Toàn văn chương trình:program VD_03_14;var td,tn,tg : integer;begin writeln('Giai bai toan tram trau tram co.'); for td := 1 to 20 do for tn := 1 to 33 do begin tg := 100...
... nhau.PROGRAM bai1 10_tr80; USES wincrt; VAR a:String[100]; ds,n,i:byte; label l; BEGIN l: CLRSCR; write('nhap xau a= ') ;readln(a); n:=length(a); If n>100 then begin write(&apos ;xau ... or (a[i]='9') thends:=ds+1; write(&apos ;xau ',a,' co ',ds,' ki tu so ');Bài 10 trang 80C2:PROGRAM bai1 10_tr80; USES wincrt; VAR a:String[100]; dem,n,i:byte;ds:array[ ... ’ch:char; label l; BEGIN l: CLRSCR; write('nhap xau a= ') ;readln(a); n:=length(a); If n>100 then begin write(&apos ;xau a dai>100,nhap lai'); readln; goto l; end;...
... bằng theo chiều âm.a) Viết phương trình dao động của con lắc.b) Xác định độ lớn và chiều của các vecto vận tốc, gia tốc và lực kéo tại thời điểm t = 3T/4.22. Một con lắc lò xo có biên độ A= 10,0...
... bài thơ sau: AO THU Ao thu lanh leo nuoc trong veo, Mot chiec thuyen cau be teo teo. Song biet theo lan hoi gon ti. La vang truoc gio khe dua veo. NGUYEN KHUYEN Bài 5: Viết chương trình...