Question

Sử dụng câu lệnh For…do và While…do để viết chương trình
a) s=1+2+3
b) s=2+4+...+2n
c) s=1+2+3+...+n
d) s=1+3+5+…+(2n+1) 
e) s=1+1/2+1/3+...+1/n
f) p=1.2.3...n
h) s=1.2.3
i) s=1+1/2+1/3

 

 

GIÚP VỚI Ạ,CẦN SIU GẤP,HƯA TICK

Answer 1

b:

uses crt;

var i,n,s:integer;

begin

clrscr;

readln(n);

s:=0;

for i:=1 to n do s:=s+2*i;

writeln(s);

readln;

end.

c: 

uses crt;

var i,n,s:integer;

begin

clrscr;

readln(n);

s:=0;

for i:=1 to n do s:=s+i;

writeln(s);

readln;

end.

d: 

uses crt;

var i,n,s:integer;

begin

clrscr;

readln(n);

s:=0;

for i:=0 to n do s:=s+2*i+1;

writeln(s);

readln;

end.