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.[r]
(1)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 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 (2)