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 số chiếm 4 vị trí và 1 dòng có 15 số.
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 số chiếm 4 vị trí và 1 dòng có 15 số.
program phuongt;
uses crt;
var i, s, n: integer;
begin
clrscr;
write(‘Nhap n nguyen duong = ‘); readln(n);
if n<0 then write(‘Sai, nhap lai’) else
begin
s:=0;
for i:=1 to n do if i mod 2 = 0 then
begin
s:=s+1;
write(i:4);
if s=15 then
begin
writeln();
s:=0;
end;
end;
end;
readln
end.
uses crt;
var n,i,d:integer;
begin
clrscr;
write(‘nhap n: ‘); readln(n);
for i:=1 to n do
begin
if i mod 2=0 then
begin
write(i,’ ‘);
d:=d+1;
end;
if d=15 then
begin
d:=0;
writeln;
end;
end;
readln;
end.