Tin học Viết chương trình tính tổng a) S=1*2+2*3+3*4+-N*(N+1) b) S=2+4+6+…+2*N c) S=1+3+5+…+(2*N+1) Với N nhập từ bàn phím Sử dụng For… Do 22/07/2021 By Skylar Viết chương trình tính tổng a) S=1*2+2*3+3*4+….N*(N+1) b) S=2+4+6+…+2*N c) S=1+3+5+…+(2*N+1) Với N nhập từ bàn phím Sử dụng For… Do
a) – Khai báo BEGIN clrscr; Write(‘Nhap so n: ‘);Readln(n); S:= 0; For i:= 1 to n do S:= S + (i*(i+1)); Write(S); Readln END. b) – Khai báo BEGIN clrscr; Write(‘Nhap so n: ‘);Readln(n); S:= 0; For i:= 1 to n do S:= S + (i*2); Write(S); Readln END. C) – Khai báo BEGIN clrscr; Write(‘Nhap so n: ‘);Readln(n); S:= 1; For i:= 1 to n do S:= S + ((i*2)+1); Write(S); Readln END. Về phần khi báo thì 3 cái giống nhau Program ; Uses crt; Var n,i,S: Integer; Trả lời
*for…do uses crt; var n,i:integer; S:longint; begin clrscr; write(‘Nhap n: ‘); readln(n); S:=0; for i:=1 to n do S:=S+(i*(i+1)); write(‘S= ‘,s); readln; end. Trả lời