Sai rồi kìa bạn... chỗ 45 sao nhảy lên 50 vậy. 7x7 = 49 mà ở đây chạy tới 52 và bỏ một vài số đó
Cho một xâu kí tự bao gồm các chữ cái thường và các chữ số. Hãy tìm số lượng ký tự liên tiếp nhiều nhất mà khác nhau đôi một của xâu con trong xâu...
Cho 3 số nguyên dương x,n và m. Viết lặp đi lặp lại số x (n lần) để được số y. In ra số dư của y khi chia cho m. VD: x=12; n=3; m=8. thì...
Mình chạy ct thấy sai bạn ơi...!!! [ATTACH] [ATTACH]
VIết chương trình nhập n, nhập vào các số từ 1 tới n^2. In ra mảng 2 chiều cấp nxn theo hình xoắn ốc. VD: n=4 [ATTACH]
Var a:array[1..100] of longint; n,i,s,k: longint; Begin Write('Nhap so phan tu cua mang '); Readln(n); For i:=1 to n do Begin...
Bạn kiểm tra kết quả lại thử nha! Var i,j,k,s1,s2,s3: longint; Begin For i:=1 to 1000 do s1:=s1+i; writeln('a) S1= ',s1); For i:=0 to 998 do...
tại chưa gặp thầy mà thầy k onl bạn ơi...
à mình hiểu rồi! cá đó tại k để ý
Các bạn sửa chương trình dùm mình với... mình làm vậy thầy bảo là đếm sai số lần xuất hiện rồi... mà mình thử lại k thấy sai. Đề: Viết chương...
Câu a nhá, có ghi là hỏi người. Thì mình tìm số người ăn cau chia 3 và số người ăn cau chia 10. Nghĩa là tìm số người ăn 1/3 trái cau và số người...
Thử đi thì biết! Xem ra có đúng ý bạn k
2 bài giống hệt nhau nha bạn! Var i,j: integer; Begin Writeln('Ghet Yeu'); For i:=0 to 100 do For j:=0 to 100 do If...
ồ. đội anh học 4,6,7 hả?
3,5,7 nè mà chiều nay thầy bận nên cả đội được nghỉ
À à, vậy bạn sắp xếp trước rồi làm như này: s:=1; For i:=1 to n do if a[i]=a[i+1] then inc(s) else If s>=k then writeln(s[i]); End; Xem thử được...
chắc bài nào khó làm ra xong đưa bạn kiểm tra dùm quá ^_^
Theo mình thì chiến tranh thế giới thứ 3 sẽ không bao giờ bùng nổ, vì: Hiện nay các đất nước điều phát triển hơn trước rất nhiều hầu hết các nước...
Phần thân chính đây, bạn chạy thử xem sao. For i:=1 to n do Begin s:=0; x:=a[i]; For j:=1 to n do if a[j]=a[i] then inc(s); If s>=k then...
exit code =2 là không tìm thấy file nghĩa là đường dẫn bị sai đó bạn. file inp bạn ghi rõ đường dẫn ra thử xem sao. vd: D:\abcd\rtert.inp
Dãn cách tên bằng dấu phẩy(,).
