Quảng cáo
1 câu trả lời 369
Program songuyento; Uses crt; Var n,i:integer; Begin Clrscr; writeln('Nhap vao so n:');readln(n); For i:= 1 to n/2 do Begin If (n mod i=0) then writeln('n khong la so nguyen to') else ('n la so nguyen to'); End; delay(2000); readln; end.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
45367 -
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
34798 -
Đã trả lời bởi chuyên gia
30603 -
Hỏi từ APP VIETJACK28113
-
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
22359
Gửi báo cáo thành công!
