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.
Uses crt ;
Var Sl,Sc,n,i,x : integer ;
Clrscr ;
Write(‘Nhap n = ‘);Readln(n);
Sl := 0 ; Sc := 0 ;
For i := 1 to n do
Begin
write(‘Nhap so ‘,i );Readln(x);
If x mod 2 = 0 then Sc := Sc + x ;
Else x mod 2 <> 0 Then Sl := Sl = x ;
End;
writeln(‘Tong le ‘,Sl);
writeln(‘Tong chan ‘,Sc);
REadln
End;
xin câu trả lời hay nhất nhá ( bài này chạy đúng nha );
chỗ in đậm là sửa
thiếu uses
uses crt;
var i,n,x,S:integer;
begin
writeln(‘nhap so n:’) ; →thiếu ;
readln(n);
S:=0;
for i:=1to n do
begin
writeln(‘nhap so’,i);→câu lệnh này có vẻ sai writeln (‘nhap so i’);
readln(x);
end;
for i:= cái gì ? 1 to n do begin
if (x mod 2=0) then S:=S+x else ( x mod 2<>0 )then S:=S+X(i);
end;
writeln(‘tong cac so chan la:’S) trước else không có ;
else writeln(‘tong cac so le la:’S) ; thiếu ;
readln;
end.
bạn ơi , bài này hình như là làm sai rồi , làm lung tung hết cả lên luôn ý . không biết bạn chép từ đâu nhưng tôi đảm bào bạn chạy lên thì cũng không ra được đáp án