Một bài toán kiểm tra tính chẳn, lẻ

[troidat1234]

Đị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

[lehuukyquan]

ĐỆ 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!)

[BeatOfAngle]

ngoài ra so sánh bit với 1 là ra.

[dancuipascal]

Hay woa hơ!! thế làm sao trả lời cụ thể coi

[troidat1234]

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;

[lehuukyquan]

ê...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!

[Master_Baby]

Đệ quy làm gì hả bạn

while (i>2) do i:= i-2;
if (i = 1) then write('so le')
else write('so chan');

=> không khác gì xét có chia hết cho 2 không )

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.

[troidat1234]

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ỉ

[QuyNam]

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.

[levanhuan]

dùng hàm odd .không dùng div hay mod 2.