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. uses crt;
   var n,i,dem:integer;
   BEGIN
   clrscr;
   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;
   end;
   end;
   readln;
   END.

   Bình luận