Question

viết chương trình nhập vào 1 dãy số gồm n phần tử kiểu số nguyên

a In dãy số ra màn hình. Tính và in tổng các phần tử là chẵn của dãy số

b đếm xem có bao nhiêu số chẵn bao nhiêu số lẻ bao nhiêu số âm bao nhiêu số dương

Answer 1

b) Đếm số chẵn

var n,i,sl:integer;

begin

sl:=0; readln(n);

for i:=1 to n do

if i mod 2 = 0 then sl:=sl+1;

writeln(sl);

readln;

end.

( Đếm số lẻ, âm/dương tương tự )

Answer 2

Answer 3

Answer 4

Đó đều là 1 chương trình nhưng do chụp nên nó bị tách 2 làm 2 cái

Answer 5

ai giải hộ đi

Answer 6

a) var i,s,n:integer;

begin

readln(n); s:=0;

for i:=1 to n do

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

writeln(s);

readln;

end.