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.