Tính tổng các số chẵn từ 1 đến 100 rồi in kết quả ra màn hình.
Quảng cáo
1 câu trả lời 87
Program TinhTongCacSoChanTu1den100_Cach1;
Var i, tong: integer;
BEGIN
writeln('Chuong trinh tinh tong cac so chan trong khoang tu 1 -> 100');
readln;
tong: = 0;
for i:=1 to 100 do
if i div 2 = 0 then tong:= tong + i;
writeln('Tong cua cac so chan trong khoang tu 1 -> 100 bang: ',tong:4);
readln;
END.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
149303 -
Đã trả lời bởi chuyên gia
99719 -
Đã trả lời bởi chuyên gia
97338 -
Đã trả lời bởi chuyên gia
80007 -
Đã trả lời bởi chuyên gia
72853 -
Đã trả lời bởi chuyên gia
55936 -
Đã trả lời bởi chuyên gia
55307
Gửi báo cáo thành công!
