user-avatar
viettrung1122cm
2 năm trước
Viết 1 đoạn trình đoạn văn trình bày cảm nhận của em về vb lão hạc theo kiểu tổng phân hợp ( từ 8 đến10 câu) k chép mang
Thích Trả lời Chia sẻ

Các câu hỏi liên quan

Kiểm tra giúp mik với ja, mik sai chỗ nào mà nó không ra số lượng số nguyên tố vậy ạ? Uses CRT; Var a: Array [1..100] of Integer; i,n,p,s: Integer; Function ktnt (n: Integer): Boolean; Var i,d,p: Integer; Begin d:=0; If n<2 then ktnt:=false Else Begin p:=0; For i:=1 to n do If n mod i=0 then d:=d+1; End; If d=2 then ktnt:=true Else ktnt:=false; End; Function kthh (n:Integer): Boolean; Var i,s: Integer; Begin s:=0; For i:=1 to n div 2 do If n mod i=0 then s:=s+i; If s=n then kthh:=true Else kthh:=false; End; Begin ClrScr; Write ( 'Nhap so nguyen n: '); Readln (n); For i:=1 to n do Begin Write ( 'Nhap phan tu thu ',i,': '); Readln (a[i]); End; Write ( 'Cac so nguyen to co trong day tren la: ' ); For i:=1 to n do Begin If ktnt (a[i])=true then Begin Write (a[i],' '); End; End; For i:=1 to n do If ktnt (a[i])=true then p:=p+1; Writeln; Write ( 'Cac so hoan hao co trong day tren la: '); For i:=1 to n do If kthh (a[i])=true then Write(a[i],' '); Readln; End.

2018 © Loga - Không Ngừng Sáng Tạo - Bùng Cháy Đam Mê
Loga Team