Viết chương trình nhập vào một số nguyên n in ra màn hình tích các số từ 1 đến n

var n,dem,i: integer;    tich: longint;begin   tich:=1;   write('Nhap N=  ');read(n); writeln;   begin       write('Cac so le chia het cho ',n,' la');writeln;       for i:= 1 to 100 do       if (i mod n = 0) and (i mod 2 <> 0) then write(i:4);writeln;   end;   begin       for i:= 1 to 100 do       if (i mod n = 0) and (i mod 2 <> 0) then dem:= dem + 1;       write('Dem = ', dem);writeln;   end;   begin       write('Cac so chia het cho ', n,' va 5 tu 1 den 50 la ');writeln;       for i:= 1 to 50 do       if (i mod n = 0) and (i mod 5=0) then write(i:4);writeln;   end;   begin       for i:= 1 to 100 do       if (i mod n = 0) and (i mod 5=0) then tich:= tich * i;       write('Tich cac so tu 1 den 100 chia het cho ', n, ' va 5 = ', tich); writeln;   end;   readln;

end.

Lorem ipsum dolor sit amet, consectetur adipiscing elit.Morbi adipiscing gravdio, sit amet suscipit risus ultrices eu.Fusce viverra neque at purus laoreet consequa.Vivamus vulputate posuere nisl quis consequat.

Create an account

bài 1:

uses crt;var     n,i,j:longint;begin        clrscr;        write(‘Nhap n:’);        readln(n);        write(‘so chan tu 1->n la:’);        for i:=1 to n do        if i mod 2=0 then write(i,’ ‘);        writeln;        write(‘so le tu 1->n la:’);        for j:=1 to n do        if j mod 2<>0 then write(j,’ ‘);        readln;

end.

bài 2:

uses crt;var     n,i,j,s,s1:longint;begin        clrscr;        write(‘Nhap n:’);        readln(n);        s1:=1;        s:=0;        write(‘tong cac so tu 1->n la:’);        for i:=1 to n do s:=s+i;        write(s);        writeln;        write(‘tich cac so tu 1->n la:’);        for j:=1 to n do s1:=s1*j;        write(s1);        readln;

end.

bài 3:

uses crt;var     n,i,j,s,s1:longint;begin        clrscr;        write(‘Nhap n:’);        readln(n);        s1:=0;        s:=0;        for i:=1 to n do        if i mod 2<>0 then s:=s+i;        write(‘tong cac so le tu 1->n la:’,s);        writeln;        for j:=1 to n do        if j mod 2<>0 then inc(s1);        write(‘co tat ca ‘,s1,’ so le’);        readln;

end.

bài 4:

uses crt;var     n,i,j,s,s1:longint;begin        clrscr;        write(‘Nhap n:’);        readln(n);        s1:=0;        s:=1;        for i:=1 to n do        if i mod 2=0 then s:=s*i;        write(‘tich cac so chan tu 1->n la:’,s);        writeln;        for j:=1 to n do        if j mod 2=0 then inc(s1);        write(‘co tat ca ‘,s1,’ so chan’);        readln;

end.

Câu 1: Viết chương trình nhập vào một số nguyên n. In ra màn hình tích các số từ 1 đến n.

Câu 2: Viết chương trình nhập vào một số nguyên n. In ra màn hình tích các số chẵn từ 1 đến n.

Câu 3: Viết chương trình nhập vào một số nguyên n. In ra màn hình tích các số lẻ từ 1 đến n.