Viết chương trình in số chẵn , lẻ từ 1 đến n (với n nhập từ bàn phím và n là số lớn hơn 1) .

Question

minhuyen · Answer

đ&acirc;y bạn

kimoanh · Answer

program chanle;

uses crt;

var n,i:integer;

begin

clrscr;

write(‘Nhap n: ‘); readln(n);

writeln(‘Cac so chan tu 1 den ‘,n,’ la: ‘);

for i:=1 to n do

if i mod 2=0 then write(i,’ ‘);

writeln;

writeln(‘Cac so le tu 1 den ‘,n,’ la: ‘);

for i:=1 to n do

if i mod 2=1 then write(i,’ ‘);

readln

end.

0 bình luận về “Viết chương trình in số chẵn , lẻ từ 1 đến n (với n nhập từ bàn phím và n là số lớn hơn 1) .”