Question

Viết chương trình nhập 1 số n từ bàn phím hãy in ra màn hình các sô chẵn nhỏ hơn n

Cứu tớ. . sắp thi r

Answer 1

uses crt;
var i,n:longint;
begin
clrscr;
write('Nhap n: ');readln(n);
write('Cac so chan nho hon n la: ');
for i:=1 to n-1 do
if i mod 2=0 then write(i,',');
readln
end.

Answer 2

uses crt;

var n,i:integer;

begin

writeln('nhap n');

readln(n);

for i:=1 to n do

if i mod 2 = 0 then writeln('so chan la=',i);

readln

end.