Question

viết chương trình nhập vào 2 số a, b và kiểm tra xem hai số đó là âm hay dương. Nếu a là dương thì in ra (a+b)^2
Ai giúp mik vs ạ! Mik đag cần gấp

 

Answer 1

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

if (a<0) then writeln(a,' la so am')

else if (a>0) then writeln(a,' la so duong')

else writeln(a,' khong la so am cung khong la so duong');

if (b<0) then writeln(b,' la so am')

else if (b>0) then writeln(b,' la so duong')

else writeln(b,' khong la so am cung khong la so duong');

if (a>0) then writeln(sqr(a+b));

readln;

end.