Question

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é

Answer 1

uses crt;
var a,b:integer;
begin
clrscr;
repeat
write('nhap a='); readln(a);
write('nhap b='); readln(b);
if a=b then writeln('vui long nhap a khac b');
until a<>b;
{--------------------------xu-ly-----------------------------}
if a>b then writeln('phep chia cua ',a,' cho ',b,' la: ',a/b:4:2)
else writeln('phep chia cua ',b,' cho ',a,' la: ',b/a:4:2);
readln;
end.

Answer 2

uses crt;

var a,b:integer;

begin

clrscr;

repeat

write('Phap so a: ');readln(a);

write('Nhap so b: ');readln(b);

if a = b then

begin

write('Nhap 2 so khac nhau');

delay(2000);

clrscr;

end;

until a <> b;

write('KQ cua phep chia so lon cho so be la: ');

if a > b then

write(a/b:0:2)

else if b > a then

write(b/a:0:2);

readln

end.