Question

Viết chương trình nhập vào một số n nguyên dương và in ra màn hình các số lẻ từ 0 tới N sao cho mỗi số chiếm 3 vị trí và một dòng có 15 chữ số

Answer 1

Uses crt;

var i,n,dem:integer;

Begin

clrscr;

write('Nhap n: ');readln(n);

dem:=0;

for i:= 1 to n do

  begin

  if i mod 2 = 1 then 

    begin

    write(i,'   ');

    inc(dem);

    end;

  if dem mod 15 = 0 then writeln;

  end;

Readln;

End.

Answer 2

uses crt;

var i,n,dem:longint;

BEGIN

clrscr;

write('nhap so nguyen duong n:');readln(n);

dem:=0;

for i:=1 to n do 

begin

if n mod 2 =1  do 

begin

inc(dem);

write(i,' ')

if dem=15 then writeln;

end;

end;

readln;

end.