Bạn nào biết viết hàm kiểm tra số chính phương trong pascal cho mình xin
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
function ktra(n:integer):boolean;
var kt:boolean;
begin
if trunc(sqrt(n))=sqrt(n) then kt:=true
else kt:=false;
if kt=true then ktra:=true
else ktra:=false;
end;
Câu 1 :
Viết một thông điệp về an toàn giao thông cho mọi người .
Câu 2 : Trong một bữa tiệc sinh nhật , Nam cùng 2 bạn đi xe máy đến dự sinh nhật của bạn An . Do vội quá lên 3 người đều không đội mũ bảo hiểm .
a ) Em có nhận xét gì về cách làm của Nam ?
b ) Nam đã phạm những lỗi gì khi tham gia giao thông ?
c ) Theo em , bao nhiêu tuổi là được đi xe máy ?
Câu 3 : Nêu 5 ví dụ về cuộc sống hòa bình và cuộc sống không hòa bình ?
Thi GDCD mk thi tuần trước rồi . CHÚC BẠN THI TỐT !!!
#Hàn_Thiên_Hy#
muốn bài khó cứ vào đây, link:
http://123doc.org/document/1150931-tuyen-tap-60-de-thi-hoc-sinh-gioi-toan-lop-6-co-dap-an-day-du.htm?page=4
minh thi roi trong do co cau
nhung hoa nho moc thanh cum co tac dung gi
ke ten nhung loai hoa ma khi da thanh qua ma van giu duoc mot so bo phan cua hoa
neu dac diem cua qua kho ne va qua kho khong ne
Program so_chinh_phuong;
uses crt;
Var n,x: integer;
BEGIN
clrscr;
write('Nhap so can kiem tra: n = ');
readln(n);
x:=trunc(sqrt(n);
IF sqr(x)=n then write(n,'la so chinh phuong);
ELSE write(n,' khong phai la so chinh phuong.');
readln;
END.
uses crt;
var n:integer;
begin
clrscr;
write('n='); readln(n);
if trunc(sqrt(n))=sqrt(n) then writeln(n,' la so chinh phuong')
else writeln(n,' khong la so chinh phuong'):
readln;
end.