Viết chương trình nhập vào số nguyên a (a≠0). Hãy cho biết a là số dương hay số âm? Nếu là số dương thì tính và đưa ra màn hình giá trị căn bậc 2 của a. Cần gấp
1 câu trả lời
uses crt;
var a : integer;
begin
clrscr;
write('nhap so nguyen a : ');readln(a);
if a <> 0 then
begin
if a > 0 then
begin
writeln('a la so duong');
writeln('can bac hai cua a = ', sqrt(a):2:1);
end
else writeln('a la so am');
end;
readln
end.
