Question

Viết chương trình với số lần lặp chưa biết trước: a) 1+3+5+...+2n b) 2+4+6+...+(2n-1)

Answer 1

a)

program tinh_tong;

uses crt;

var n,i:integer;

tong:longint;

begin

clrscr;

write('nhap so n:');readln(n);

i:=1;tong:=0

while i<n do

begin

if i mod 2=1 then tong:=tong+i

else i:=i+1;

end;

tong:=tong+2*n;

writeln('tong la:',tong);

readln;

end.

b)

program tinh_tong;

uses crt;

var n,i:integer;

tong:longint;

begin

clrscr;

write('nhap so n:');readln(n);

i:=1;tong:=0

while i<n do

begin

if i mod 2=0 then tong:=tong+i

else i:=i+1;

end;

tong:=tong+(2*n-1);

writeln('tong la:',tong);

readln;

end.

Answer 2

b) uses crt;

var i,n,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

t:=0;

i:=1;

while i<=2*n-1 do 

  begin

  i:=i+1;

if i mod 2=0 then t:=t+i;

end;

writeln(t);

readln;

end.