aj có đề pascal nào ko hĩu thì post lên !!!

[Fjzer]

Mình chả hiểu bạn viết gì luôn
- Trước khi viết ct nếu có thể thì bạn nên viết ý tưởng trước thì người đọc mới có thể hiểu được
- Bài này dễ mà , mình có cách khác hay hơn nhiều bạn tham khảo nhé...
Ý tưởng:
- Tính n!
- Chuyển kq của n! sang xâu
-Chạy xâu,nếu s[i]=0 thì viết ký tự thứ i+1 ra và thoát ra khỏi vòng lặp.
Code:
program gt;
uses crt;
var i,n,j,k,l:integer;
s,s1,s2:string;
begin
clrscr;
write('Nhap n=');readln(n);
t:=1;
for i:=1 to n do
t:=t*i;
str(t,s);
write('So sau so 0 cua ',n,'! la: ');
for i:=1 to length(s) do
if s[i]='0' then
begin
write(s[i+1]);
break;
end;
readln
end.

[ksc10]

^ n > 9 là bị sai

Công thức là n div 5 + n div 25 + ...

[Tống Vũ]

Ai giúp mình bài này đi
Chèn mã hợp ngữ vào chương trình Pascal (Mình xài Free Pascal)
Nó cứ báo lỗi "AH not found"

[ada95]

Bạn đưa chương trình của bạn lên đây đi, để mọi người cùng dịch thử và soát lỗi ..

[mini_bestboy]

Ai giúp mình bài này đi
Chèn mã hợp ngữ vào chương trình Pascal (Mình xài Free Pascal)
Nó cứ báo lỗi "AH not found"

Bạn nói chung chung thế thì khó mọi người quá, post code lên đi bạn

[Vuio]

Chèn mã asm vào pascal thì xài
procedure vidu(s:string);assembler;
asm
...
end;
Sau đó gọi cái vidu bình thường thôi, chủ yếu là thêm assembler và thay begin bằng asm

[dias13]

bạn hướng dẫn mình code pascal cách tính định thức 1 ma trận vuông được ko . Tks ban

[quachvinhst]

Help mình bài này.
Viết chương trình nhập vào hai mảng A và B. Nối hai mảng A và B thành 1 mảng duy nhất C. In C ra màn hình.
Cám ơn mọi người nhiều.

[jimmyvan]

1/ Cho một danh sách gồm n họ và ten người.Đưa ra các họ và số lần xuất hiện họ đó.
2/ Lập trinh đua ra các số từ 1 đến n^2 ,(0<n<50), xoay vòng theo chiều kim đồng hồ,trên 1 ma tran vuông có cạnh la n=3.

1 2 3
8 9 4
7 6 5
Giúp mình các bạn oi!

[trantien2002]

: cho 1 số tự nhiên N≤9. Giữa các số từ 1 → N hãy thêm các dấu + và – sao cho kết quả thu được bằng 0. Tìm tất cả khả năng có thể.