KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
sử dụng câu lệnh for..to..do viết chương trình tính tổng A=1-1/3+1/5+…-1/15
By Ariana
sử dụng câu lệnh for..to..do viết chương trình tính tổng A=1-1/3+1/5+…-1/15
program phuongt; uses crt; var A, i, s: integer; begin clrscr; A:=1; s:=-1; for i:=1 to 15 do if i mod 3 = then begin A:=A+s*1/i; s:=-s; end; write(‘Tong = ‘, A); readln end.
program phuongt;
uses crt;
var A, i, s: integer;
begin
clrscr;
A:=1;
s:=-1;
for i:=1 to 15 do if i mod 3 = then
begin
A:=A+s*1/i;
s:=-s;
end;
write(‘Tong = ‘, A);
readln
end.
uses crt;
var a:real;
i:byte;
begin
clrscr;
a:=1;
for i:=3 to 15 do
begin
if i mod 4 = 3 then a:=a-1/i;
if i mod 4 = 1 then a:=a+1/i;
end;
writeln(a);
readln;
end.