vbvcnvbnvvb

Đặt A = 1.2.3 + 2.3.4 + 3.4.5 + ... + 28.29.30

4A = 1.2.3.(4-0) + 2.3.4.(5-1) + 3.4.5.(6-2) + ... + 28.29.30.(31-27)

4A = 1.2.3.4 - 0.1.2.3. + 2.3.4.5 - 1.2.3.4 + 3.4.5.6 - 2.3.4.5 + ... + 28.29.30.31 - 27.28.29.30

4A = 28.29.30.31 - 0.1.2.3

4A = 28.29.30.31

\(A=\frac{28.29.30.31}{4}=7.29.30.31=188790\)

Theo cách tính trên ta dễ dàng tính được:

1.2.3 + 2.3.4 + 3.4.5 + ... + (n - 1).n.(n + 1) = \(\frac{\left(n-1\right).n.\left(n+1\right).\left(n+2\right)}{4}\)

1) n⁴ + 4 = (n⁴ + 4n² + 4) - 4n² = (n² + 2)² - (2n)² = (n² + 2 + 2n).(n² + 2 - 2n)

Ta có n²  + 2n + 2 = (n+1)² + 1 > 1 với n là số tự nhiên 

n² - 2n + 2 = (n -1)²  + 1 $\ge$ 1 với n là số tự nhiên

Để  n⁴ + 4 là số nguyên tố =>  thì  n⁴ + 4 chỉ có 2 ước là chính nó và 1 

=> n²  + 2n + 2  = n⁴ + 4 và n² - 2n + 2 = (n -1)²  + 1  = 1 

(n -1)²  + 1  = 1 => n - 1= 0 => n = 1

Vậy n = 1 thì n⁴ là số nguyên tố

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.