a)Viết chương trình nhập vào 1 số nguyên N<100. Nếu N là số lẻ thì in ra màn hình các số lẻ từ 1 đến N b)Viết chương trình nhập vào 1 số nguyên N < 100. Nếu N là số chẵn thì in ra màn hình các số chẵn từ 0 đến N
a)Viết chương trình nhập vào 1 số nguyên N<100. Nếu N là số lẻ thì in ra màn hình các số lẻ từ 1 đến N b)Viết chương trình nhập vào 1 số nguyên N < 100. Nếu N là số chẵn thì in ra màn hình các số chẵn từ 0 đến N
Write (‘ nhap n:’);readln(n);
b,If n mod 2 = 0 then
Begin
Write(‘ Cac so chan tu 0 den ‘ ,n ,’ la’);
For i:= 0 to n do
if i mod 2 =0 then write (i,’ ‘ );
End;
a,If n mod 2 = 1 then
Begin
Write(‘ Cac so le tu 1 den ‘ ,n ,’ la’);
For i:= 0 to n do
if i mod 2 =1 then write (i,’ ‘);
End;
Phần khai báo tự làm nha ^^
Hình 1: Chương trình
Hình 2: Kết quả chạy thử