Question

Em hãy viết một chương trình hoàn chỉnh có sử dụng cấu trúc lặp và cấu trúc rẻ nhánh?

Answer 1

uses crt;

var n,i:integer;

begin

clrscr;

write('Nhap n='); readln(n);

if n mod 2<>0 then 

begin

for i:=1 to n do 

  if i mod 2=1 then write(i:4);

end

else begin

for i:=1 to n do

  if i mod 2=0 then write(i:4);

end;

readln;

end.