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

0 bình luận về “a/b-c/d , làm bằng pascal, a,b,c,d nhập từ bàn phím”

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.

   Bình luận