Viết chương trình nhập vào 2 số nguyên, in lên màn hình kết quả phép chia của số lớn cho số bé

2 câu trả lời

Program FNG;
Uses crt;
Var a,b: longint;
Begin
        Clrscr;
        Write('Nhap a: '); Readln(a);
        Write('Nhap b: '); Readln(b);
        If a>b then Write(a/b:0:2)
        Else Write(b/a:0:2);
        Readln
End.

var a,b:longint;

begin

write('Nhap 2 so: '); readln(a,b);

if a>b then write('Ket qua la: ',a/b:0:4)

else write('Ket qua la: ',b/a:0:4);

readln

end.

$\color{pink}{\#Mirai}$