Viết chương trình tính tổng: A= 1-2+3-4+5-...+n-(n+1) với n là số lẻ
Quảng cáo
1 câu trả lời 1104
3 năm trước
uses crt;
var n,i,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n+1 do
if i mod 2=0 then t:=t-i
else t:=t+i;
writeln(t);
readln;
end.
nguyvotiencute333
· 3 năm trước
Thank you bn
Quảng cáo
Câu hỏi hot cùng chủ đề
-
3994
Gửi báo cáo thành công!