In số chẵn ra màn hình
Viết chương trình 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ố.
In số chẵn ra màn hình Viết chương trình 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ó
By Jade
program sochan;
uses crt;
var n,i,d:integer;
begin
write(‘Nhap so n: ‘); readln(n);
d:=0;
for i:=0 to n do
begin
if i mod 2=0 then
begin
write(i:4);
inc(d);
end;
if d mod 15=0 then writeln;
end;
readln
end.
Program_BT;
Uses Crt;
Var n,i,d:longint;
Begin
For i:=0 to n do
Begin
Write(i:4);
Inc(d);
If d:=15 then begin d:=0; writeln; end;
End;
Readln
End.
#HOCTOTNHE!