viết chương trình nhập n số tự nhiên và tính tổng các số chẵn hoặc lẻ của n số đó
sửa lỗi sai của mình với ạ
var i,n,x,S:integer;
begin
writeln('nhap so n:')
readln(n);
S:=0;
for i:=1to n do
begin
writeln('nhap so',i);
readln(x);end;
for i:=to n do
begin
if x mod 2=0 then S:=S+x
else x<>0 then S:=S+X;end;
writeln('tong cac so chan la:'S);
else writeln('tong cac so le la:'S)
readln;
end.
Loga
Sinh Học lớp 12
