Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (43.37 KB, 1 trang )
<span class='text_page_counter'>(1)</span>Bài 9: VCT kiểm tra số n nhập vào có phải số chính phương ko? Nếu phải thông báo: số n ko là số chính phương. Ngược lại xuất: n không là số chính phương var i,n:integer;. begin write('nhap so n:'); readln(n); i:=1; while i<=n do i:=i+1; if n=sqr(round(sqrt(n))) then write('so',n,'la so chinh phuong') else write('so',n,'ko la so chinh phuong'); readln end..
<span class='text_page_counter'>(2)</span>