Guest User

Untitled

a guest
Nov 12th, 2019
104
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. uses crt;
  2. var max,a,b,c,d,m:integer;
  3. s:real;
  4. begin
  5. clrscr;
  6. writeln('Nhap a,b,c,d');readln(a,b,c,d);
  7. s:=sqr(a-b)/(sqr(c)-d);
  8. writeln('ket qua: ',s:2:3);
  9. max:=a;
  10. if b>max then max:=b;
  11. if c> max then max:=c;
  12. if d>max then max:=d;
  13. writeln('so lon nhat la: ',max);
  14. if (a>0) or (b>0) or (c>0) or (d>0) then
  15. m:=a*b*c*d;
  16. writeln('m=',m);
  17. readln
  18. end.
RAW Paste Data