viết chương trình in ra màn hình các số chia hết cho 2 nhỏ hơn n, với giá trị n nhập từ bàn phím

2 câu trả lời

Program Hotboy;

Uses crt;

Var n,i : integer;

Begin

Write('nhap so n');

Readln(n);

i:=1 ;

While i<n do

Begin

If (i mod 2=0) then write(i,'  ');

End;

Readln

End.

Uses crt;

Var n,i : integer;

Begin

Write('nhap so n');

Readln(n);

i:=1 ;

While i<n do

Begin

If (i mod 2=0) then write(i,' ');

End;

Readln

End.