Question

1. Viết chương trình in ra giá trị các biểu thức sau:

T1=1.2.3 + 2.3.4 + 3.4.5 + .....n(n+1)(n+2) T2=1.2.3 - 2.3.4 + 3.4.5 -4.5.6 +.....+n(n+1)(n+2) (Đổi dấu chẵn lẻ) 2. Viết chương trình in ra số ước của một số N được nhập từ bàn phím. In ra số lượng ước của N

Answer 1

Bài 1:

uses crt;
var n,i,t1,t2:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t1:=0;
for i:=1 to n do
t1:=t1+i*(i+1)*(i+2);
t2:=0;
for i:=1 to n do
begin
if i mod 2<>0 then t2:=t2+i*(i+1)*(i+2)
else t2:=t2-i*(i+1)*(i+2);
end;
writeln('T1=',t1);
writeln('T2=',t2);
readln;
end.

Bài 2:

uses crt;

var i,dem,n:integer;

begin

clrscr;

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

dem:=0;

writeln('Cac uoc cua mot so ',n,' la: ');

for i:=1 to n do

if n mod i=0 then

begin

write(i:4);

dem:=dem+1;

end;

writeln;

writeln('So luong uoc cua ',n,' la: ',dem);

readln;

end.