Định nghĩa: 1 là số lẻ và 2 là số chẳn. Kiểm tra n là chẳn hay lẻ với điều kiện n là chẳn thì (n-1) là lẻ và (n-2) là chẳn . hảy nhập n từ bàn phím và kiểm tra xem n là chẳn hay lẻ
PS: không ăn gian chia hết cho 2 nghe
Định nghĩa: 1 là số lẻ và 2 là số chẳn. Kiểm tra n là chẳn hay lẻ với điều kiện n là chẳn thì (n-1) là lẻ và (n-2) là chẳn . hảy nhập n từ bàn phím và kiểm tra xem n là chẳn hay lẻ
PS: không ăn gian chia hết cho 2 nghe
ĐỆ QUY 1 phát 1.
Cần phải làm gì thêm nữa không hả troidat1234!
<sorry các member nhé, tớ và troidat1234 là bạn học cùng lớp!)
ngoài ra so sánh bit với 1 là ra.
Hay woa hơ!! thế làm sao trả lời cụ thể coi
Bài này đệ quy 1 phat 1 là ko hay
Bạn phải dùng 2 hàm kiẻm tra chẳn, lẻ riêng biệt kìa;
ê...chơi k cho dùng chiêu chia hết cho 2 sao mà thi cử được. Đề nghị lần sau ra bài tập cho chơi đủ kiểu luôn ah, chơi kiểu gì thì chơi miễn sao ra thì thôi chứ gì! Kaka...đọc xong rát mặt ráng chịu!
Đệ quy làm gì hả bạn
=> không khác gì xét có chia hết cho 2 không )Code:while (i>2) do i:= i-2; if (i = 1) then write('so le') else write('so chan');
Hoặc có thể dùng phép dịch bit shr shl, đem số ban đầu trừ đi kết quả trên. Nếu = 1 => số lẻ; nếu = 0 => số chẵn.
Bài toán như thế này.
Cho dãy ****nacy n1 =1, n2 =2
n3=n2+n1;
n4=n3+n2;
vói n1 là số hạng lẻ,
n2 là số hạng chẳn
kiểm tra nk là chẳn hay lẻ
Ko biết chia hết cho 2 ở đâu nhỉ
Code:uses crt; var k:word; {Ham kiem tra chan le} function kt(n:longint):boolean; begin while n>2 do dec(n,2); kt:=(n=1); end; {Ham kiem tra tinh chan le cua so f thu k} function checkfb(k:word):boolean; var a,b,c:longint; begin a:=1;b:=2;k:=k-2; repeat c:=a+b;a:=b;b:=c;dec(k); until k=0; checkfb:=kt(b); end; begin clrscr; write('Nhap k : ');readln(k); if checkfb(k) then writeln('f(',k,') la so le') else writeln('f(',k,') la so chan'); readln; end.
dùng hàm odd .không dùng div hay mod 2.
Bookmarks