Tìm kiếm:

Lỗi chia cho số 0. Nhưng thực ra thư viên crt bi lỗi
khi lập trình chỉ cần xóa các câu lệnh ở thư viện crt như clrscr và cả crt nữa

uses crt;
var i,n,j:integer;
begin
clrscr;
write('Nhap so hang cua tam giac can: ');readln(N);
for i:=1 to n do
begin
gotoxy(40-i,i);
for j:=1 to...

uses crt;
var A:array[1..10000] of integer;
i,n,s:integer;
begin
clrscr;
write('Nhap so so chinh phuong can tinh tong: ');readln(n);
S:=0;
for i:=1 to n do
...

uses crt,dos;
type ran=array[1..100] of record
x,y:byte;
end;
var conran:ran;
x,y,x1,y1,L,huong:byte;
tocdo,Diem:integer;Kt:char;Ranchet:Boolean;...

vi du: nhap vao {2space}barathrum{2 space}bi{3 space}dien{4 space}
in ra barathrum bi dien
hieu chua

uses crt;
var xau:string;
begin
write('Nhap xau: ');readln(xau);
while xau[1]=' ' do delete(xau,1,1);
while xau[length(xau)]=' ' do delete(xau,length(xau),1);
while pos(' ',xau)>0 do...

uses crt;
var g,c:integer;
begin
clrscr;
for c:=1 to 25 do
for g:=1 to 35 do
if (g*2+c*4=100) and (g+c=36) then
begin
writeln('So ga la: ',g);
write('So cho la: ',c);

uses crt;
var xau:string;
i:integer;
begin
clrscr;
write('Nhap ten: ');readln(xau);
while xau[1]=' ' do delete(xau,1,1);
while xau[length(xau)]=' ' do delete(xau,length(xau),1);
i:=1;...

bai 1:
var m,n,S:integer;
begin
clrscr;
write('Nhap m,n: ');readln(m,n);
if m>0 then
begin
for i:=1 to m do
S:=S*i;
S:=S+(n-5);

So hoan hao la so bang tong cac uoc thuc su cua no