Viết chương trình cho phép nhập số nguyên dương N từ bàn phím
Yêu cầu:Tính và in ra màn hình tổng S=1+3+5+…+(2n+1)
ví dụ 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
Program sad ;
Uses crt;
Var n,s,i: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); readln(n);
s:=0;
for i:=1 to (2*n+1) do
if i mod 2=1 then
s:=s+i;
Writeln(‘S: ‘,s);
Readln;
end.
—–Quang148—–
program oken;
uses crt;
var n,s,i: longint;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
s:=0;
for i:=1 to (2*n+1) do
if i mod 2=1 then
s:=s+i;
writeln(‘S: ‘,s);
readln;
end.