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