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
a) uses crt;
var a:integer;
begin
clrscr;
write(‘nhap so a=’);readln(a);
if a<100 then write(‘tiep tuc chuong trinh ‘)
else if a>100 then write(‘moi ban nhap lai ‘);
if a mod 2 = 1 then write(‘so le’) else write(‘ ko phai so le’);
write(a,’la so le ‘);
readln;
end.
b)
uses crt;
var a:integer;
begin
clrscr;
write(‘nhap so a=’);readln(a);
if a<100 then write(‘tiep tuc chuong trinh ‘)
else if a>100 then write(‘moi ban nhap lai ‘);
if a mod 2 = 0 then write(‘so chan’) else write(‘ ko phai so chan’);
write(a,’la so chan ‘);
readln;
end.
Hình 1: Chương trình
Hình 2: Kết quả chạy thử