Nguyễn Tùng

Viết chương trình nhập vào các số nguyên cho đến khi nhập số chẵn thì dừng lại. Tính tổng các số nguyên dương vừa nhập

Nguyễn Lê Phước Thịnh
3 tháng 12 2021 lúc 21:57

uses crt;

var a,t:integer;

begin

clrscr;

t=0;

repeat

readln(a);

if (a>0) then t:=t+a;

until (a mod 2=0);

writeln(t);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
Thắng Cao Toàn
Xem chi tiết
tho hit co
Xem chi tiết
Tai Lam
Xem chi tiết
Tai Lam
Xem chi tiết
Bùi Lê Thanh Trúc
Xem chi tiết
Phúc Trí Nguyễn Lê
Xem chi tiết
Mai Phương Lê
Xem chi tiết
Nguyễn minh Hoàng
Xem chi tiết
Nhat thanh Tran
Xem chi tiết