Bài 3: Viết chương trình in ra tất cả các cặp số nguyên tố cách nhau 2 đơn vị và nhỏ hơn 10000. Ví dụ các cặp số nguyên tố đầu tiên cách nhau 2 đơn vị là (3,5), (5,7), (11,13).Bài 4: Viết chương trình nhập 3 số tự nhiên từ bàn phím là day, month và year có ý nghĩa là ngày, tháng, năm tương ứng. Kiểm tra xem bộ dữ liệu đã nhập có hợp lý hay không....
Đọc tiếp
Bài 3: Viết chương trình in ra tất cả các cặp số nguyên tố cách nhau 2 đơn vị và nhỏ hơn 10000. Ví dụ các cặp số nguyên tố đầu tiên cách nhau 2 đơn vị là (3,5), (5,7), (11,13).
Bài 4: Viết chương trình nhập 3 số tự nhiên từ bàn phím là day, month và year có ý nghĩa là ngày, tháng, năm tương ứng. Kiểm tra xem bộ dữ liệu đã nhập có hợp lý hay không. python
Bài 3:
uses crt;
var i:integer;
{------------------chuong-trinh-con-kiem-tra-so-nguyen-to----------------------}
function ktnt(x:integer):boolean;
var kt:boolean;
i:integer;
begin
kt:=true;
for i:=2 to x-1 do
if x mod i=0 then kt:=false;
if kt=true then ktnt:=true
else ktnt:=false;
end;
{-------------------------chuong-trinh-chinh----------------------------}
begin
clrscr;
for i:=2 to 9999 do
if (ktnt(i)=true) and (ktnt(i+2)=true) then
begin
writeln(i,',',i+2);
delay(500);
end;
readln;
end.
Bài 4:
uses crt;
var a,b,c,kt:integer;
begin
clrscr;
write('Nhap ngay:'); readln(a);
write('Nhap thang:'); readln(b);
write('Nhap nam:'); readln(c);
kt:=0;
if (b=1) and (0<a) and (a<=31) then kt:=1;
if (b=2) and (0<a) and (a<=28) then kt:=1;
if (b=2) and (0<a) and (a<=29) and (c mod 4=0) then kt:=1;
if (b=3) and (0<a) and (a<=31) then kt:=1;
if (b=4) and (0<a) and (a<=30) then kt:=1;
if (b=5) and (0<a) and (a<=31) then kt:=1;
if (b=6) and (0<a) and (a<=30) then kt:=1;
if (b=7) and (0<a) and (a<=31) then kt:=1;
if (b=8) and (0<a) and (a<=31) then kt:=1;
if (b=9) and (0<a) and (a<=30) then kt:=1;
if (b=10) and (0<a) and (a<=31) then kt:=1;
if (b=11) and (0<a) and (a<=30) then kt:=1;
if (b=12) and (0<a) and (a<=31) then kt:=1;
if kt=0 then writeln('Khong hop le')
else writeln('Hop le');
readln;
end.