Cách tạo trò chơi mèo đuổi chuôt
Chia sẻ bởi Lê Hoàng Duy Khan |
Ngày 26/04/2019 |
45
Chia sẻ tài liệu: Cách tạo trò chơi mèo đuổi chuôt thuộc Tin học 12
Nội dung tài liệu:
Var
M, N, i, j, s: word; nt: boolean;
Begin
Writeln(`Nhập hai số tự nhiên 0Write(`N=`); Readln(N);
Write(`M=`); Readln(M);
S:=0;
For i:=N to M do
Begin
If i > 1 then nt:= True
Else nt:=False; {các số 0,1, số 2 là số nguyên tố, không cần kiểm tra}
If i > 2 then
For j:=2 to i-1 do
If i mod j = 0 then nt:= False;
If nt then
Begin
Writeln(i);
S:= s+1;
End;
End;
Writeln(`Giữa N và M có tất cả `, s:5, `số nguyên tố`);
Readln;
End.
M, N, i, j, s: word; nt: boolean;
Begin
Writeln(`Nhập hai số tự nhiên 0
Write(`M=`); Readln(M);
S:=0;
For i:=N to M do
Begin
If i > 1 then nt:= True
Else nt:=False; {các số 0,1, số 2 là số nguyên tố, không cần kiểm tra}
If i > 2 then
For j:=2 to i-1 do
If i mod j = 0 then nt:= False;
If nt then
Begin
Writeln(i);
S:= s+1;
End;
End;
Writeln(`Giữa N và M có tất cả `, s:5, `số nguyên tố`);
Readln;
End.
* Một số tài liệu cũ có thể bị lỗi font khi hiển thị do dùng bộ mã không phải Unikey ...
Người chia sẻ: Lê Hoàng Duy Khan
Dung lượng: |
Lượt tài: 1
Loại file:
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)