viết chương trình tính tổng lập phương của N số tự nhiên đầu tiên N nhập từ bàn phím
2 câu trả lời
program ct;
uses crt;
var i,s:integer;
s:real;
begin
clrscr;
write('nhap n:=');readln(n);
s:=0;
for i:=1 to n do s:=s+(i*i*i);
writeln('tong lap phuong la:',s);
readln
end.
Program Hotboy ;
Uses crt;
Var S:longint;
i,N:integer ;
Begin
Write('nhap n'); Readln(n);
For i:=1 to n do
S:=S+sqr(i)*i;
Write('tong can tim la',S);
Readln
End.
Câu hỏi trong lớp
Xem thêm