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
(-12/5)^7×(2/9)^6÷(-4/15)^6 Giúp mk cần gấp
Bướm hô hấp bằng gì, Bướm di chuyển ra sao?
tìm tập hợp tất cả các số tự nhiên x , sao cho ( 25 + 18 + x) chia hết cho 3 và 10<x<15
Vai trò của loài bướm: Có lợi và có hại chú ý: Mỗi phần phải từ 3 ý trở lên
Viết một đoạn văn ngắn giới thiệu bản thân bằng tiếng anh
Giải phương trình sau : sinx+$\sqrt{3}$cos-(tanx+$\sqrt{3}$cotx)=1+$\sqrt{3}$
Công thức U= E - I(R +r) áp dụng khi nào ? Còn côbf thức U= E- Ir thì sao ? Mong mọi người giúp ạ .
ai biết làm không giải hộ em với ạ
thay đổi yếu tố kì ảo trong chuyện người con gái nam xương theo ý của mk
Bữa nay thi HKI chán quá :(( mn vẽ chibi hoặc tranh phong cảnh không đăng tranh cũ; xấu,spam=bc
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến