Tin học Tin học Đề: viết chương trình tính tổng, tích của n số nguyên nhập vào từ bàn phím sau đó in ra màn hình kết quả tổng, tích của n số nguyên đó và cho 19/07/2021 By Alexandra Tin học Đề: viết chương trình tính tổng, tích của n số nguyên nhập vào từ bàn phím sau đó in ra màn hình kết quả tổng, tích của n số nguyên đó và cho biết tổng kém hơn tích bao nhiêu đơn vị. Ai giúp mình bài này với ????
program tongtich; uses crt; var $i,n:integer;$ $S,T:longint;$ begin clrscr; write(‘ n = ‘); readln(n); $S:=0; T:=1;$ While $i<n$ do begin $S:=S+i;$ $T:=T*i;$ $i:=i+1;$ end; writeln(‘ Tong cua ‘,n,’ so nguyen dau tien la: ‘,S); writeln(‘ Tich cua ‘,n,’ so nguyen dau tien la: ‘,T); writeln(‘ Tong kem hon tich ‘,T-S,’ don vi ‘); readln; end. Trả lời
program BT; uses crt; var A:array [1..500] of integer; n,i: integer; T,S: longint; Begin clrscr; write(‘Nhap n: ‘); readln(n); S:=1; for i:=1 to n do begin write(‘A[‘,i,’]=’); readln(A[i]); T:=T+A[i]; S:=S*A[i]; end; writeln(‘Tong = ‘,T); writeln(‘Tich = ‘,S:2:2); write(‘Tong kem tich ‘,S-T,’ don vi’); readln End. Trả lời