Viết chương trình tính tổng các số chẵn số tự nhiên từ 1 đến 100.
Quảng cáo
2 câu trả lời 139
Lời giải:
Program viet_chuong_trinh_tinh_tong;
Uses Crt;
Var i,s:integer;
Begin
Clrscr;
i:=2;
While (i>1) and (i<=100) do
Begin
s:=s+i;
i:=i+2;
End;
Writeln(S);
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
149631 -
Đã trả lời bởi chuyên gia
99998 -
Đã trả lời bởi chuyên gia
97612 -
Đã trả lời bởi chuyên gia
80300 -
Đã trả lời bởi chuyên gia
73097 -
Đã trả lời bởi chuyên gia
56190 -
Đã trả lời bởi chuyên gia
55568
Gửi báo cáo thành công!
