NT

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

NT
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ự
TT
Xem chi tiết
TC
Xem chi tiết
TL
Xem chi tiết
TL
Xem chi tiết
BT
Xem chi tiết
PL
Xem chi tiết
ML
Xem chi tiết
NH
Xem chi tiết
NT
Xem chi tiết