Câu hỏi của nguyễn minh nguyệt

Question

Tổng lũy thừa bậc 3

Cho biểu thức S=1³+2³+...+n³=m²với mọi m,n thuộc N*.Tổng các lũy thừa bậc 3 của n số nguyê...

Luân Đào · Accepted Answer

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.

Câu trả lời:

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.

Nguyễn Trung Hiếu · Answer

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);

Câu trả lời:

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);

Tin Học · Answer

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 !!!

Câu trả lời:

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 !!!

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

Input	Output
96 105 3	3 102

Input	Output
96 105 14	9 98

Input	Output
5 4 9	28

dữ liệu vào	dữ liệu ra	giải thích
n=1	s=4	s=1+3=4
n=2	s=9	s=1+3+5=9

Chúng tôi đề xuất

Tài nguyên

Ứng dụng mobile

Câu lệnh	Đúng	Sai	Sửa lại
Program Chuong trinh
Var i,s :real;
Const n:=10;
Begin
S:= s+1
i=i+1
End.
Writeln(s)
Readln
End;

Câu lệnh	Đúng	Sai	Sửa lại
Program Chuong trinh		x	program chuongtrinh;
var i,s : real;	x
const n:=10;	x
begin	x
s:=s+1		x	s:=s+1;
i:=i+1		x	i:=i+1;
end;		x	end;
writeln(s)		x	writeln(s);
readln	x
end;		x	end.

Câu	Đúng	Sai	Sửa lại
a) for i=1 to 10 do writeln('A');
b) var X: Array[5...10] Of Char;
c) X:=10; while X=10 do X:=X+5;
d) s:=0; for i:=1.5 to 10.5 do s:=s+i;
e)var A:= array [1..50] of integer;

	\(Hằng\)	\(Biến\)	\(Từ Khóa\)	\(Tên\)
Program
Pi
Hinh_tron
Const
chu_vi
dien_tich
writeln
End

Lần lặp thứ	Giá trị của biến i	Giá trị của biến J
1	1	J= 0+3 = 3
2	2	J= 3+ 3= 6
3	3	J=.....................................................................................
4	4	J=.....................................................................................
5	5	J=.....................................................................................

Câu lệnh	Đúng	Sai	Sửa lại
Program Chuong trinh
Var i,s : real;
Const n:=10;
Begin
While i <=n do;
Begin
S:=s+i
i=i+1
End.
Writeln(s)
Readln
End;

Bảng xếp hạng

Các khóa học có thể bạn quan tâm

Yêu cầu VIP