Question

Tổng lũy thừa bậc 3

Cho biểu thức S=1³+2³+...+n³=m²với mọi m,n thuộc N*.Tổng các lũy thừa bậc 3 của n số nguyên dương bằng m²,tính chất này đã được chứng minh trong toán học.

Yêu cầu kiểm chứng tính chất kia bằng cách tính giá trị của m với số nguyên dương n cho trước(1≤n≤5000000)

Input:Gồm một số dòng,mỗi dòng có một số n duy nhất

Output:Mỗi dòng xuất ra giá trị m tương ứng tìm được

Input	Output
2	3
5	15
1234	761995
45678	1043262681
89765	4028922495
5000000	12500002500000

Answer 1

uses crt;

var m,n: integer;

begin

clrscr;

writeln('Nhap n = '); read(n);

m:=0;

for i:=1 to n do

m:=m+i*i*i;

m:=sqrt(m);

writeln('m = ',m);

readln

end.

Answer 2

const
nhap='input.inp';
xuat='output.out';
var s:int64;
i,n:longint;
begin
assign(input,nhap); reset(input);
assign(output,xuat); rewrite(output);
readln(n);
for i:=1 to n do
s:=s+i;
write(s);
end.
close(input);close(ouput);

Answer 3

ko dùng tệp :

uses crt;

var m,n,i: int32;

begin

clrscr;

write('nhap n: ');readln(n);

m:=0;

for i:=1 to n do

m:=m+i*i*i;

write('M la : ',sqrt(m));

readln;

end.

Dùng tệp:

uses crt;

var m,n,i : int32;

begin

clrscr;

assign(input,'baitap.inp');

reset(input);

readln(n);

close(input);

assign(output,'baitap.out');

rewrite(output);

m:=0;

for i:=1 to n do

m:=m+i*i*i;

write('M = ',sqrt(m));

readln;

end.

CHÚC BẠN HỌC TỐT NHAAAA !!!