Viết chương trình tính các tổng sau S=1+3+5+....+(2n+1)
2 câu trả lời
Program tinh_tong;
Uses crt;
Var S,i,n: integer;
Begin
Write ('Nhap n=');
Readln (n);
S:=1;
For i:= 1 to n do
S:= S+ (2*i+1);
Writeln ('Tong S la:', S);
Readln
End.
program ct;
uses crt;
var i,s,n:integer;
begin
clrscr;
write('nhap n:=');readln(n);
s:=1;
for i:=1 to n do
s:=s+(2*i+1);
writeln('S=',s);
readln
end.
Câu hỏi trong lớp
Xem thêm
