Lập trình tính Z = a^2 + 4b^2 Nếu a> hoặc bằng b

0 bình luận về “Lập trình tính Z = a^2 + 4b^2 Nếu a> hoặc bằng b”

1. program tinhz;

   uses crt;

   var a,b,z : integer;

   begin

   clrscr;

   z:=0;

   write(‘nhap a’,a); readln(a);

   write(‘nhap b’,b); readln(b);

   if a>= b then

   z:=sqr(a) +4*sqr(b) ;

   writeln(‘Z=’,z:2:2);

   readln

   end.

   Bình luận