Ai hộ mình được câu nào thì hộ với ạ
Câu 1 : Viết chương trình tính và in ra tổng N số nguyên đầu tiên? (N được nhập vào
từ bàn phím)
Câu 2 : Viết chương trình tính và in ra tổng các số chẵn của 10 số nguyên đầu tiên? (N
được nhập vào từ bàn phím)
Câu 3 : Viết chương trình tính và in ra tổng các số lẻ của 10 số nguyên đầu tiên? (N
được nhập vào từ bàn phím)
Câu 4 : Viết chương trình đếm số các số chẵn của 10 số nguyên đầu tiên? (N được
nhập vào từ bàn phím)
Câu 5 : Viết chương trình đếm số các số lẻ của 10 số nguyên đầu tiên? (N được nhập
vào từ bàn phím)
Câu 6 : Viết chương trình đếm số ước số của số nguyên N? (N được nhập vào từ bàn
phím)
Câu 7 : Viết chương trình tính và in ra tổng các ước số của số nguyên N? (N được
nhập vào từ bàn phím)
Câu 8 : Viết chương trình đếm số các số chia hết cho 3 trong phạm vi từ 1 đến N? (N
được nhập vào từ bàn phím)
Câu 9 : Viết chương trình tính và in ra tổng các số chia hết cho 3 của trong phạm vi từ
1 đến N? (N được nhập vào từ bàn phím)
Câu 1:
uses crt;
var n,i,t:integer;
begin
clrscr;
write('n='); readln(n);
t:=0;
for i:=1 to n do
t:=t+i;
writeln('tong cua ',n,' so nguyen dau tien la: ',t);
readln;
end.
Câu 2:
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 10 do
if i mod 2=0 then t:=t+i;
writeln('tong cac so chan trong 10 so nguyen dau tien la: ',t);
readln;
end.
Câu 3:
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 10 do
if i mod 2=0=1 then t:=t+i;
writeln('tong cac so le trong 10 so nguyen dau tien la: ',t);
readln;
end.
Câu 4:
uses crt;
var i,dem:integer;
begin
clrscr;
dem:=0;
for i:=1 to 10 do
if i mod 2=0 then inc(dem);
writeln('so cac so chan trong 10 so nguyen dau tien la: ',dem);
readln;
end.
Câu 5:
uses crt;
var i,dem:integer;
begin
clrscr;
dem:=0;
for i:=1 to 10 do
if i mod 2=1 then inc(dem);
writeln('so cac so le trong 10 so nguyen dau tien la: ',dem);
readln;
end.
Câu 6:
uses crt;
var i,n,dem:integer;
begin
clrscr;
write('n='); readln(n);
dem:=0;
for i:=1 to n do
if n mod i=0 then dem:=dem+1;
writeln('so luong uoc cua ',n,' la: ',dem);
readln;
end.
Câu 7:
uses crt;
var i,t,n:integer;
begin
clrscr;
write('n='); readln(n);
t:=0;
for i:=1 to n do
if n mod i=0 then t:=t+i;
writeln('tong cac uoc cua ',n,' la: ',t);
readln;
end.
Câu 8:
uses crt;
var n,i,dem:integer;
begin
clrscr;
write('n='); readln(n);
dem:=0;
for i:=1 to n do
if i mod 3=0 then inc(dem);
writeln('so cac so chia het cho 3 trong pham vi tu 1 toi',n,' la: ',dem);
readln;
end.
Câu 9:
uses crt;
var i,t,n:integer;
begin
clrscr;
write('n='); readln(n);
t:=0;
for i:=1 to n do
if i mod 3=0 then t:=t+i;
writeln('tong cac so chia het cho 3 trong pham vi tu 1 toi ',n,' la: ',t);
readln;
end.
