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, sao cho mỗi 1 dòng có 5 số. (Giải thích: cứ mỗi 5 số sẽ xuống dòng để in ra dòng khác). Lưu ý: Khi viết chương trình, kết thúc mỗi câu lệnh các em sẽ xuống dòng. Gợi ý: Câu lệnh xuống dòng là "writeln;"
2 câu trả lời
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;
readln
end
program oken;
uses crt;
var n,i:longint;
begin
clrscr;
write('nhap n: '); readln(n);
for i:=1 to n do
if i mod 2= 0 then write(n,' ');
readln;
end.
