Bài 6. Câu lệnh điều kiện

Nguyễn Huỳnh Yến Nhi

Viết CT tính tổng các số chẵn (số lẻ) trong phạm vi từ 1-30

Nguyễn Lê Phước Thịnh
1 tháng 6 2020 lúc 22:21

uses crt;

var t,t1,i:integer;

begin

clrscr;

t:=0;

t1:=0;

for i:=1 to 30 do

begin

if i mod 2=0 then t:=t+i

else t1:=t1+i;

end;

writeln('Tong cac so chan: ',t);

writeln('Tong cac so le: ',t1);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
Ara T-
Xem chi tiết
Trúc Anh
Xem chi tiết
huu nguyen
Xem chi tiết
phamthiminhanh
Xem chi tiết
Quynh Anh Nguyen Tran
Xem chi tiết
Minh Ngọc
Xem chi tiết
Xem chi tiết
Lê Thị Khánh Huyền
Xem chi tiết
LQmobi Acc
Xem chi tiết