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
0 bình luận về “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.
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.