1.nhập vào từ bàn phím số a.Hãy viết chương trình kiểm tra xem a có chia hết cho 3 ko? In kết quả ra màn hình 2.viết chương trình nhập vào từ bàn phím số nguyên a. Kiểm tra xem a có phải là số nguyên tố ko? In kết quả ra màn hình

anhtuan222001

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 22 xem

1 trả lời

Thích Trả lời

nhatanhnguyen140

Bài 1:

Program BTT;
Uses crt;
Var a: longint;
Begin
Clrscr;
Write('Nhap a: '); Readln(a);
If a mod 3 = 0 then Write(a,' chia het cho 3')
Else Write(a,' khong chia het cho 3');
Readln
End.

Bài 2:

Program BTT;
Uses crt;
Var a: longint;

Function ngto(a: longint): boolean;
Var i: longint;
Begin
If a<2 then exit(false);
For i:=2 to a div 2 do
If a mod i = 0 then exit(false);
exit(true);
End;

Begin
Clrscr;
Write('Nhap a: '); Readln(a);
If ngto(a) then Write(a,' la so nguyen to')
Else Write(a,' khong phai so nguyen to');
Readln
End.

Vote (0) Phản hồi (0) 2 năm trước

muiham

Bài 1:

program bai_giai;
var a:integer;
begin
clrscr;
readln(a);
if a mod 3=0 then write('chia het')
else write('khong chia het');
readln;
end.

Bài 2:

program bai_giai;
uses crt;
var a,i,d:integer;
begin
clrscr;
readln(a);
d:=0;
for i:=2 to a div 2 do
if a mod i=0 then d:=d+1;
if d=0 then write('La so nguyen to')
else write('Khong phai so nguyen to');
readln;
end.

Vote (0) Phản hồi (0) 2 năm trước

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

Nhận xét sự phân bố cây cao su ở nước ta

quá trình tự nhân đôi của ADN.giải thích vì sao 2 ADN con được tạo ra qua cơ chế nhân đôi lại giống với ADN mẹ? (sinh lớp 9)

kể chuyện 10 năm sau em về thăm lại mái trường mà hiện nay em đang học. Hãy tưởng tượng những đổi thay có thể xảy ra>

√13- √5-(- √2)=? A. √12 B. √11 C. √10 D. √13

Cảm nghĩ của em về tâm hồn thi sĩ và tâm hồn chiến sĩ của Bác Hồ qua hai bài thơ"Cảnh khyua" và "Rằm thàng giêng"

Làm giúp mình với ạ ....cảm ơn !!😗😗

1 ô tô khởi hành từ hà nội lúc 8 giờ, đến hải phòng lúc 10 giờ. Cho biết quãng đường từ hà nội đến hải phòng dài 108 km. Tính tốc độ của ô tô ra km/h, m/s

giải bài toán sau: một ô tô trong 4 giờ đi được 211,2km.hỏi trung bình mỗi giờ ô tô đó đi đươc bao nhiêu ki-lô-mét?

Những công trình văn hóa tiêu biểu của thời Văn Lang - Âu Lạc

cho hình tam giác ABC , kẻ đường cao AH. Trên AH lấy điểm M sao cho: AM= MH x 2 a, so sánh diện tích tam giác MBC và ABC b, So sánh diện tích hình tam giác ABC và MBH các bạn làm cả 2 bài giúp mình nhé nhanh lên mình đang cần gấp

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến