Tin học Dùng ngôn ngữ Pascal để viết các chương trình tính tổng sau (n là số tự nhiên được nhập từ bàn phím ) A=1+3+5+8+…+2n+1 B=2+4+6+8+…+2n T=1+1/3+1/5+ 20/07/2021 By Savannah Dùng ngôn ngữ Pascal để viết các chương trình tính tổng sau (n là số tự nhiên được nhập từ bàn phím ) A=1+3+5+8+…+2n+1 B=2+4+6+8+…+2n T=1+1/3+1/5+1/7+…+1/2n+1 S=1+1/2+1/4+1/6+…+1/2n
program tong; uses crt; var n,i,A,B: integer; T,S: real; Begin clrscr; write(‘Nhap n: ‘); readln(n); A:=1; B:=2; T:=1; S:=1; for i:=1 to n do begin A:=A+(2*i+1); B:=B+2*i; T:=T+1/(2*i+1); S:=S+1/2*i; end; writeln(‘A = ‘,A); writeln(‘B = ‘,B); writeln(‘T = ‘,T:2:3); write(‘S = ‘,S:2:3); readln End. Trả lời
program tinh_tong; uses crt; var n,i,a,b:inteegr; t,s:real; begin clrscr; write(‘Nhap n: ‘); readln(n); a=1; b:=0; t:=1; s:=1; for i:=1 to n do begin a:=a+2*i+1; b:=b+2*i; t:=t+1/(2*i+1); s:=s+1/(2*i); end; writeln(‘A= ‘,a); writeln(‘B= ‘,b); writeln(‘T= ‘,t:0:3); writeln(‘S= ‘,s:0:3); readln; end. Trả lời