Question

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

Answer 1

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

Answer 2

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.

Answer 3

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.

Answer 4

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.