Số chẵn là số chia 2 dư 0.
Số chẵn là gì ?
Admin- Admin
- Tổng số bài gửi : 239
Join date : 19/05/2011
Age : 28
Đến từ : VietNam
Admin- Admin
- Tổng số bài gửi : 239
Join date : 19/05/2011
Age : 28
Đến từ : VietNam
VAR a: INTEGER;
BEGIN
Readln(a);
IF A MOD 2=0 THEN Write('So chan');
readln
END.
BEGIN
Readln(a);
IF A MOD 2=0 THEN Write('So chan');
readln
END.
Admin- Admin
- Tổng số bài gửi : 239
Join date : 19/05/2011
Age : 28
Đến từ : VietNam
VAR A,B: WORD;
BEGIN
Readln(A,B);
FOR A:=A TO B DO
IF A MOD 2 =0 THEN Write(A,' ');
Readln
END.
BEGIN
Readln(A,B);
FOR A:=A TO B DO
IF A MOD 2 =0 THEN Write(A,' ');
Readln
END.
Admin- Admin
- Tổng số bài gửi : 239
Join date : 19/05/2011
Age : 28
Đến từ : VietNam
VAR A,B: WORD;
BEGIN
Readln(A,B);
FOR A:=A+1 TO B-1 DO
IF A MOD 2 =0 THEN Write(A,' ');
Readln
END.
BEGIN
Readln(A,B);
FOR A:=A+1 TO B-1 DO
IF A MOD 2 =0 THEN Write(A,' ');
Readln
END.
Admin- Admin
- Tổng số bài gửi : 239
Join date : 19/05/2011
Age : 28
Đến từ : VietNam
VAR N: WORD;
BEGIN
Readln(N);
FOR N:=0 TO N-1 DO
IF N MOD 2=0 THEN Write(n,' ');
Readln
END.
BEGIN
Readln(N);
FOR N:=0 TO N-1 DO
IF N MOD 2=0 THEN Write(n,' ');
Readln
END.
Được sửa bởi Admin ngày Thu May 26, 2011 6:33 pm; sửa lần 1.
Admin- Admin
- Tổng số bài gửi : 239
Join date : 19/05/2011
Age : 28
Đến từ : VietNam
- Post n°6
In ra màn hình tấc cả số chẵn nhỏ hơn số nguyên dương n và chia hết cho số chẵn duơng m.
Admin Thu May 26, 2011 6:33 pm
VAR N,M: INTEGER;
BEGIN
Readln(N,M);
FOR N:=0 TO N-1 DO
IF N MOD M =0 THEN Write(N,' ');
Readln
END.
BEGIN
Readln(N,M);
FOR N:=0 TO N-1 DO
IF N MOD M =0 THEN Write(N,' ');
Readln
END.
Admin- Admin
- Tổng số bài gửi : 239
Join date : 19/05/2011
Age : 28
Đến từ : VietNam
VAR A,B: WORD;
BEGIN
Readln(A,B);
FOR A:=A TO B DO
IF A MOD 2 =0 THEN Write(A,' ');
Readln
END.
BEGIN
Readln(A,B);
FOR A:=A TO B DO
IF A MOD 2 =0 THEN Write(A,' ');
Readln
END.
Admin- Admin
- Tổng số bài gửi : 239
Join date : 19/05/2011
Age : 28
Đến từ : VietNam
- Post n°8
Tìm số chẵn trong [A;B] với A là số nguyên âm, B là số nguyên dương.
Admin Thu May 26, 2011 6:56 pm
VAR A,B: INTEGER;
BEGIN
Readln(A,B);
FOR A:=A TO B DO
IF A MOD 2 =0 THEN Write(A,' ');
Readln
END.
BEGIN
Readln(A,B);
FOR A:=A TO B DO
IF A MOD 2 =0 THEN Write(A,' ');
Readln
END.
Admin- Admin
- Tổng số bài gửi : 239
Join date : 19/05/2011
Age : 28
Đến từ : VietNam
- Post n°9
Dùng Chương trình này để giải ''Tìm số chẵn trong [A;B] với A là số nguyên âm, B là số nguyên dương.''
Admin Thu May 26, 2011 7:00 pm
Admin đã viết:VAR A,B: WORD;
BEGIN
Readln(A,B);
FOR A:=A TO B DO
IF A MOD 2 =0 THEN Write(A,' ');
Readln
END.
Khi nhập dữ liệu ta không giải được bài toán.
ví dụ với bộ dữ liệu là (-2,10)
Vì A có kiểu dữ liệu Word nên nó không thể nhận giá trị âm.
Ta khai báo A là kiểu Integer thì bài toán được giải quyết.
Admin- Admin
- Tổng số bài gửi : 239
Join date : 19/05/2011
Age : 28
Đến từ : VietNam
- Post n°10
Chương trình: tìm số chẵn dương nhỏ hoặc bằng hơn số nguyên dương n cho trước.
Admin Thu May 26, 2011 7:20 pm
VAR N: WORD;
i:INTEGER;
BEGIN
Readln(N);
IF N MOD 2 =0 THEN BEGIN
i:=-2;
WHILE i<>N DO BEGIN
i:=i+2; Write(i,' '); END; END
ELSE
N:=N-1;
WHILE i<>N DO BEGIN
i:=i+2; Write(i,' '); END;
Readln
END.
i:INTEGER;
BEGIN
Readln(N);
IF N MOD 2 =0 THEN BEGIN
i:=-2;
WHILE i<>N DO BEGIN
i:=i+2; Write(i,' '); END; END
ELSE
N:=N-1;
WHILE i<>N DO BEGIN
i:=i+2; Write(i,' '); END;
Readln
END.
|
|
|