Question

Viết chương trình nhập vào 1 số N nguyên dương và in ra màn hình các số chẵn từ 0 đến N? (N là số tự nhiên được nhập vào từ bàn phím)

Gợi ý: Các số chẵn là các số chia 2 dư 0, ta có thể sử dụng mod để chia lấy phần dư.

giúp mình với , mình đang cần gấp

Answer 1

uses crt; {khai bao' thu vien crt} var n,i,dem:integer; BEGIN clrscr;{ cau lenh xoa man hinh}; write('Nhap n: ');readln(n); dem:=0; for i:=1 to n do begin if i mod 2=0 then begin write(i:4); dem:=dem+1; end; if dem=15 then begin dem:=0; writeln;{in duoc 15 so thi xuong dong}; end; end; readln END.

Answer 2

uses crt;

var n,i:integer;

begin

clrscr;

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

for i:=0 to n do

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

readln;

end.