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

NN

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

NT
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ự
AT
Xem chi tiết
TA
Xem chi tiết
HN
Xem chi tiết
H24
Xem chi tiết
QT
Xem chi tiết
MN
Xem chi tiết
DT
Xem chi tiết
LH
Xem chi tiết
LA
Xem chi tiết