Giúp nhox với, khó wá à

Tiêu đề: Re: Giúp nhox với, khó wá à 20/6/2008, 2:24 pm

ê, mấy nhox pro tin học, giải dùm bài nì coi, ngồi nói nhảm hoài à
Đề: Nhập vào n số tự nhiên. In ra tổng các số chẳn và tổng các số lẽ.
Làm dùm mấy nhox iu

Tiêu đề: Re: Giúp nhox với, khó wá à 20/6/2008, 7:59 pm

Code:: Var n,i,j,t1,t2:integer;
Begin
write('Nhap n:');
readln(n);
for i:=1 to n do
begin
if (i mod 2=0) then t1:=t1+i
else t2:=t2+i;
end;
write('Tong so chan:',t1);
write('Tong so le:',t2);
readln;
end.

Tiêu đề: Re: Giúp nhox với, khó wá à 20/6/2008, 7:59 pm

Đó, bài dễ mà chị

Tiêu đề: Re: Giúp nhox với, khó wá à 20/6/2008, 8:48 pm

nhoxkute đã viết:: Đề: Nhập vào n số tự nhiên. In ra tổng các số chẳn và tổng các số lẽ.

Đọc kỹ đề

Code:: Var n,i,j,k:integer
a:array[1..100] of integer;
Begin
j:=0;
k:=0;
Write('Nhap n: ');
Readln(n);
For i:=1 to n do begin
Write('Nhap so ',i,': ');
Readln(a[i]);
j:=j+a[i];
End;
For i:=1 to n do
If odd(a[i])=true then k:=a[i]+1;
Writeln('Tong cac so le :',k);
Writeln('Tong cac so chan :',j-k);
Readln;
End.

Tiêu đề: Re: Giúp nhox với, khó wá à 20/6/2008, 8:48 pm

Giải xong rùi, SPAM típ

Tiêu đề: Re: Giúp nhox với, khó wá à 20/6/2008, 9:10 pm

À đọc lộn đề. Thông cảm, bùn ngủ wa', tối thức coi Euro

Tiêu đề: Re: Giúp nhox với, khó wá à 20/6/2008, 9:11 pm

Chứ ko phải yêu quá mờ mắt hả Look Down

Tiêu đề: Re: Giúp nhox với, khó wá à 20/6/2008, 9:18 pm

Mần lại nè, đừng coi thằng đó, nó vít có mình nó hỉu hà:

Code:: Var i,j,n,t1,t2:integer;
a:array[1..100] of integer;
Begin
write('Nhap n:');
readln(n);
for i:=1 to n do
Begin
write('Nhap so',i,':');readln(a[i]);
end;
for i:=1 to n do
begin
if (a[i] mod 2=0) then t1:=t1+a[i]
else t2:=t2+a[i];
end;
write('Tong so chan:',t1);
write('Tong so le:',t2);
readln;
end.