var i,n:integer;

s:longint;

begin

readln(n);

s:=0;

for i:=1 to n*n*n do s:=s+i;

writeln(s);

end.

dễ mà              

var a:integer;

begin

readln(a);

if sqr(trunc(sqrt(a)))=a then

writeln('la so chinh phuong') else writeln('khong la so chinh phuong');

end.

var a,b,c,n:integer;

begin

readln(n,a,b,c);

if (a=b) or (b=c) or (a=c) then

writeln('can') else writeln('khong can');

end.

Xét các phát biểu sau đây:

1. Ưu thế lai biểu hiện ở đời F1 và sau đó được duy trì ổn định ở các đời tiếp theo.

2. Khi lai khác dòng hoặc lai khác loài, con lai luôn có biểu hiện ưu thế lai.

3.Nếu sử dụng con lai F1 làm giống thì sẽ gây ra hiện tượng thoái hóa giống vì con lai F1 có kiểu gen dị hợp.

4. Trong cùng một tổ hợp lai, phép lai thuận có thể không cho ưu thế lai nhưng phép lai nghịch có thể cho ưu thế lai và ngược lại.

5. Ở dòng thuần chủng, quá trình tự thụ phấn không gây thoái hóa giống.

6. Ở các giống động vật, quá trình giao phối cận huyết luôn gây ra thoái hóa giống.

Trong các phát biểu trên có bao nhiêu phát biểu đúng?

A. 3.

B. 4.

C. 2.

D. 5.

chương trình sẽ là:

var i,n,j,tang,min:integer;

A:array[1..100] of longint;

begin

readln(n);

for i:=1 to n do readln(A[i]);

writeln('mang vua nhap');

for i:=1 to n do writeln(A[i]:3);

min:=A[i];

for i:=2 to n do

if A[i]<min then min:=A[i];

writeln('gia tri nho nhat la ' , min);

for i:=1 to n-1 do

for j:=i+1 to n do

if A[i]>A[j] then

begin

tang:=A[i];

A[i]:=A[j];

A[j]:=tang;

end;

writeln('day so sau khi sap xep tang dan');

for i:=1 to n do writeln(A[i]:3);

end.

Do đặt tính sai như vậy nên số thập phân đó đã tăng lên 100 lần và kết quả thu được sẽ tăng thêm so với kết quả đúng là: 100 - 1 = 99 (lần số thập phân đó)

Số thập phân đó là: 1985,94 : 99 = 20,06.

Kết quả đúng của phép tính đó là: 2006 + 20,06 = 2026,06.

                                                                                                         Đáp số: 2026,06.