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.
2 câu trả lời
program xxx;
uses crt;
var x : real;
begin
readln(x);
if x>0 then writeln (sqr(x))
else writeln (x,' khong phai la so duong.');
readln;
end.
Program baitap;
Uses crt;
Var x:real;
Begin
Clrscr;
Write('x='); Readln(x);
If x>0 then writeln(sqrt(x):5:2)
Else writeln('x khong phai la so duong');
Readln
End.
_________________
Đã test code
