KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
uses crt; var n:longint; begin clrscr; write(‘Nhap n: ‘); readln(n); if sqr(trunc(sqrt(n)))=n then writeln(n,’ la so chinh phuong’) else writeln(n,’ khong phai la so chinh phuong’); readln end.
uses crt;
var n:longint;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
if sqr(trunc(sqrt(n)))=n then writeln(n,’ la so chinh phuong’)
else writeln(n,’ khong phai la so chinh phuong’);
readln
end.
program chinhphuong;
uses crt;
var n:integer;
begin
clrscr;
repeat
write(‘Nhap n=’); readln(n);
until n>0;
if sqrt(n)=trunc(sqrt(n)) then writeln(n,’ la so chinh phuong’);
else writeln(n,’ khong la so chinh phuong’);
readln;
end.