Em hãy viết chuong trình nhập vào một số n. a.kiểm tra n có phải là số chính phương không. b. In ra các số chính phương nhỏ hơn n.
2 câu trả lời
function cp(n:longint):boolean;
begin
if trunc(sqrt(n)) = sqrt(n) then exit(true);
exit(false);
end;
var i,n:longint;
begin
readln(n);
if cp(n)=true then writeln(n,' la so chinh phuong')
else writeln(n,' khong phai la so chinh phuong');
write('Cac so chinh phuong nho hon ',n,' la ');
for i := 1 to n - 1 do
if cp(i)=true then write(i,' ');
readln;
end.
uses crt;
var i,n:longint;
begin
clrscr;
readln(n);
writeln(frac(sqrt(n)) = 0);
for i:=1 to trunc(sqrt(n-1)) do
write(i*i,' ');
readln;
end.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
