1.Viết chương trình in ra các số hoàn thiện từ 1 đến 1000 2.Viết chương trình phấn tích các số ra thừa số nguyên tố giúp em với ạ
1 câu trả lời
var n,i: integer;
Begin
Write(‘Nhap so can phan tich: ‘);Readln(n);
i:=2;
Write(‘Ket qua phan tich:’);
Write(n,’=’);
While n>1 do
Begin
if n mod i = 0 then Begin Write(i,’.’); n:= n div i End
else i:=i+1;
End;
Readln
End.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
