Tính tổng S = 1 + 3 + 5 +....+ 555 = cách sử dụng câu lệnh For...to...do...
2 câu trả lời
uses crt;
var i, res: longint;
begin
clrscr;
for i:=1 to 555 do
if i and 1 = 1 then inc(res, i);
writeln(res);
readln;
end.
uses crt;
var i, S : longint;
begin
clrscr;
S := 0;
for i := 1 to 555 do
if i mod 2 <> 0 then S := S + i;
writeln('S = ', S);
readln
end.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
