Question

cho dãy số 1,2,3,4,5,...n (nhập từ bàn phím )

a) viết chương trình đếm số chắn

b) viết chương trình tính tổng các số chắn trong dãy

Answer 1

Cái này là nhập dãy n số hay là chỉ nhập n và xử lý trong khoảng từ 1 tới n vậy bạn?

Answer 2

Program HOC24;

var d,i,n: integer;

t: longint;

begin

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

t:=0; d:=0;

for i:=1 to n do

if i mod 2=0 then

begin

d:=d+1;

t:=t+i;

end;

writeln('Co ',d,' so chan trong day');

write('Tong cac so chan trong day la : ',t);

readln

end.