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ố.

0 bình luận về “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ố.”

1. 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.

   Bình luận

2. 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.

   Bình luận