Question

a/b-c/d , làm bằng pascal, a,b,c,d nhập từ bàn phím

Answer 1

uses crt;

var a,b,c,d:real;

begin

clrscr;

write('Nhap cac so a,b,c,d: ');

readln(a,b,c,d);

write('Ket qua cua phep tinh: ',a:3:3,'/',b:3:3,'-',c:3:3,'/',d:3:3,' la: ', (a/b)-(c/d):3:3);

readln;

end.