Đang thi , cần giúp ngay một bài pascal , làm ơn

tôi đang thi pascal , có bạn nào hiểu làm bài này thế nào không ,
viết hộ cho bài giải với

đề bài như sau : lập chương trình đọc vào 1 dãy số nguyên cho đến khi gặp số 0 , tính tổng các số lẻ và tổng các số chẵn .
sử dụng lệnh repeat ...... until .


giúp nhanh hộ cái , còn 30 nữa hết giờ rồi , cám ơn nhiều

 

bbb---chúc thi trượt nhé bạn trẻ

 

Uhm, theo mình thì như sau, (ngại nên viết sơ qua) :'>

Đầu tiên, gán :
for i:=1 to n do
if a mod 2 = 0 then Sochan:=a
else SoLe:=b;

Tiếp đó, dùng repeat lặp cho đến khi(until) xuất hiện số chẵn hoặc số lẻ = 0 thì dừng lại.
Nên chia ra làm 2 phần, 1 phần tính tổng chẵn, 1 phần lẻ cho dễ nhìn.

 

khá rành về vi tính nhưng dốt đặc pascal nè

 

Dạo này lắm nhân tài spam thế nhờ

Mod thì ko biết lặn đâu
close topic giùm :(

 

dùng repeat (có thể sai cú pháp bạn tự sửa nha, tại mình viết trên html, với lại cũng ko dùng pascal lâu rồi)
ý tưởng làm ở đây vì đề ko yêu cầu lưu mảng đọc được nên mình làm trực tiếp đọc đến đâu làm đến đấy
var
a : integer; {tong so chan}
b : integer; {tong so le}
n : integer; {so phần tử}
temp : integer; {biến tạm}
begin
n :=0 ;
a := 0;
b := 0;
repeat
n := n + 1;
writeln ('nhap phan tu' );
readln (temp);

{nếu temp = 0 thì tổng ko đổi nên ko bận tâm}
if (temp mod 2 = 0) then
a := a + temp; {coi lại có thể sai cú pháp, nếu sai thì bỏ ;}
else
b := b + temp;
until (temp =0);

writeln ('Tong cac so chan ' + a) ;{ có thể sai cú pháp bạn coi lại nếu sai thì chuyển a xuống thành writeln(a)}
writeln ('Tong cac so le ' + b) ;
readln();
end.

 

Lâu rồi ko dùng Pascal nhưng vẫn còn nhớ Pascal có lệnh readkey gì đó, chỉ cần repeat nhập(); until key = 0, sau đó làm phép tính tổng số chẵn lẻ như tên virtualman là xong.