Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
c. 
Mình có bị nhưng có cách giải quyết đấy !
Bạn uninstall bản free pascal đấy đi rồi tải bản khác hoặc bạn có thể update cũng được
Bạn nên tải lại phần mềm, hoặc thử cách khác: bấm Alt+R+Enter để thử xem
uses crt;
var e,f,i,a,b,c,d: byte;
begin
clrscr;
write('Tu so = '); readln(e);
write('Mau so = '); readln(f);
a:=e;
b:=f;
writeln('Phan so ban dau: ',e,'/',f);
while E <> F do
if E > F then E:=E-F
else F:=F-E;
If e <> 1 then
begin
a:=a div e;
b:=b div e;
write('Phan so toi gian: ',a,'/',b);
end
else write('Phan so da toi gian, ',a,'/',b);
readln
end.
uses crt;
var a,b,min,i,ucln:integer;
begin
clrscr;
write('Nhap a='); readln(a);
repeat
write('Nhap b='); readln(b);
until b<>0;
min:=a;
if min>b then min:=b;
ucln:=1;
for i:=1 to min do
if (a mod i=0) and (b mod i=0) then
begin
if ucln<i then ucln:=i;
end;
writeln(a,'/',b,'=',a div ucln,'/',b div ucln);
readln;
end.
uses crt;
var n,i,s:integer;
begin
clrscr;
n:=1;
s:=0;
repeat
s:=s+n;
n:=n+1;
until s>1000;
writeln(n);
readln;
end.
Hình như là để xóa bài đã lưu thì phải. Em cũng ko biết lắm. Em học lớp 4 nha. Chúc chị học tốt nhé. Mai thi đừng có trượt là đc. Ko bố mẹ lại buồn. Chúc chị thi tốt.
@@ Ơ Kìa Tui con Trai Mà :))
Dù Sao thì Cũng cảm ơn Bạn Nhé :>>
Thế thì anh. Anh học lớp mấy nhỉ?
Mình Lớp 8 Nhé :))
Em lớp 4. Kém anh 4 lớp.