Bài 1 : Nhập vào số tự nhiên a, kiểm tra xem a có phải là số chính phương hay không
Bài 1 : Nhập vào số tự nhiên a, kiểm tra xem a có phải là số chính phương hay không
By Emery
By Emery
Bài 1 : Nhập vào số tự nhiên a, kiểm tra xem a có phải là số chính phương hay không
Uses crt;
Var a: integer;
Begin
Clrscr;
Readln(a);
If sqrt(a) mod 1 =0 then
writeln(a,’ la so chinh phuong’);
Else writeln(a,’ khong phai la so chinh phuong’);
Readln;
End.
Mã nguồn đây nhé bạn:program sochinhpguong;
uses crt;
var a,i: longint;
begin
clrscr;write(‘Nhap a = ‘); readln(a);
i:=1;
repeat
i:=i+1;
until (i*i = a ) or (i > a); // dung lai khi i^2 = a hoac i>a
if (i*i = a ) then writeln(a,’ la so chinh phuong’) //khi i^2 = a
else writeln(a,’ khong phai la so chinh phuong’); //cac truong hop con lai
readln;
end.