Dùng vòng lặp For...to...do viết chương trình S (n là số tự nhiên được nhập từ bàn phím)
a) S = 1 + 2 + 3 + 4 + ... + n
b) S = 2 + 4 + 6 + ... + n
c) S = 3 + 5 + 7 + ... + n
d) S = 1/3 + 1/5 + 1/7 + ... 1/n (với n là số lẻ theo thứ tự tăng dần)
Help me >< Sắp phải nộp rồi nên các bạn giúp mình với TvT
1.Var i,n : integer;
S : real;
Begin write ('n = '); read (n);
S:= 0; For i:=1 to n do S:= S + i;
Write (S);
Readln;
End
b)program tinh_tong;
uses crt;
var j,k,i,n:integer;
s:real;
begin clrscr;
repeat write('Nhap n=');
readln(n);
if n>=1 then break;
writeln('Hay nhap n>=1');
until false;
s:=0;
for i:=1 to n do s:=s+2*i;
writeln('Tong: ',s:4:2);
readln
end.
b)
Program hotrotinhoc;
var i,n: integer;
s: longint;
begin
write('N='); readln(n);
s:=0;
for i:=1 to n do if i mod 2=0 then s:=s+i;
write('S=',s);
readln
end.
c)
Program hotrotinhoc;
var i,n: integer;
s: longint;
begin
write('N='); readln(n);
s:=0;
for i:=1 to n do if i mod 2=1 then s:=s+i;
write('S=',s);
readln
end.
d)
Program hotrotinhoc;
var i,n: integer;
s: real;
begin
write('N='); readln(n);
s:=0;
for i:=1 to n do if i mod 2=1 then s:=s+1/i;
write('S=',s:1:2);
readln
end.
A)
uses crt;
var tong,n,i:integer;
begin
clrscr; tong:= 0;
write('Nhap N: ');readln(n);
for i:= 1 to n do tong:= tong + i;
write('S = ',tong);
readln
end.
B)
uses crt;
var tong,n,i:integer;
begin
clrscr; tong:= 0;
write('Nhap N: ');readln(n);
for i:= 1 to n do
if i mod 2 = 0 then tong:= tong + i;
write('S = ',tong);
readln
end.
C)
uses crt;
var tong,n,i:integer;
begin
clrscr; tong:= 0;
write('Nhap N: ');readln(n);
for i:= 3 to n do
if i mod 2 <> 0 then tong:= tong + i;
write('S = ',tong);
readln
end.
D)
uses crt;
var tong:real;
n,i:integer;
begin
clrscr; tong:= 0;
write('Nhap N: ');readln(n);
for i:= 3 to n do
if i mod 2 <> 0 then tong:= tong + (1/i);
write('S = ',tong:0:2);
readln
end.