Số lẽ chia 2 dư # 0.
Số lẽ là gì ?
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 le');
readln
END.
BEGIN
readln(a);
IF a MOD 2 <>0 THEN Write('so le');
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: INTEGER;
BEGIN
readln(a); Writeln;
IF a>3 THEN BEGIN
b:=-1;
WHILE b<a-2 DO BEGIN b:=b+2; write(b,' '); END; END;
IF a=3 THEN Write(1);
readln
END.
BEGIN
readln(a); Writeln;
IF a>3 THEN BEGIN
b:=-1;
WHILE b<a-2 DO BEGIN b:=b+2; write(b,' '); END; END;
IF a=3 THEN Write(1);
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: 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
VAR A: ARRAY[1..1000] OF INTEGER;
i: INTEGER;
BEGIN
Readln(i);
FOR i:=1 TO i DO readln(a[i]);
FOR i:=1 TO i DO
IF A[i] MOD 2 <> 0 THEN Write(A[i],' ');
readln
END.
i: INTEGER;
BEGIN
Readln(i);
FOR i:=1 TO i DO readln(a[i]);
FOR i:=1 TO i DO
IF A[i] MOD 2 <> 0 THEN Write(A[i],' ');
readln
END.
|
|