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