viết chương trình sau bằng lệnh for -do A=1 /1.3+1/2.4+/3.5+-…+1/n(n+2) 20/07/2021 Bởi Lydia viết chương trình sau bằng lệnh for ….do A=1 /1.3+1/2.4+/3.5+…….+1/n(n+2)
program tong; uses crt; var n,i: integer; A: real; Begin write(‘Nhap n: ‘); readln(n); for i:=1 to n do A:=A+1/(i*(i+2)); write(‘A = ‘,A:2:2); readln End. Bình luận
program tong_A; uses crt; var n,i:integer; A:real; begin clrscr; write(‘Nhap n: ‘); readln(n); A:=0; for i:=1 to n do A:=A+1/(i*(i+2)); write(‘A= ‘,A:0:3); readln; end. Bình luận
program tong;
uses crt;
var n,i: integer;
A: real;
Begin
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do A:=A+1/(i*(i+2));
write(‘A = ‘,A:2:2);
readln
End.
program tong_A;
uses crt;
var n,i:integer;
A:real;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
A:=0;
for i:=1 to n do
A:=A+1/(i*(i+2));
write(‘A= ‘,A:0:3);
readln;
end.