viết chương trình tính tổng sau: S=2+4+6+...+2n với n nhập vào từ bàn phím
2 câu trả lời
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do s:=s+2*i;
write('s la: ',s);
readln
end.
Program FNG;
Uses crt;
Var n,s: qword;
i: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
s:=0;
For i:=1 to n do
s:=s+2*i;
Write('S = ',s);
Readln
End.
Câu hỏi trong lớp
Xem thêm