Question

Viết chương trình thực hiện : nhập một số thực x, nếu x > 0 thì tính và in kết quả căn bậc 2 của x , nếu x <= 0 thì thông báo x không phải là số dương.

Answer 1

uses crt;

var x:real;

begin

clrscr;

write('x='); readln(x);

if x>0 then writeln(sqr(x):4:2)

else writeln(x:4:2,' khong phai la so duong');

readln;

end.