Program tinh_tong;
uses crt;
Var i,n,sum: integer;
Begin
write('Nhap so n: n= '); readln(n);
while (n>= 20) or (n<=3) do begin ('Nhap lai n: n='); readln (n); end;
sum:=0;
for i:=1 to n do sum:=sum+i;
writeln('Tong can tinh là:', sum);
Readln;
End.
Viết Ct tính tổng A=1+2+3+...+n và in kết quả .(n nhập từ phím 20>n>2)
Viết ct nhập số N, nhập dãy số nguyên, in dãy số nguyên, tính tổng và in kết quả
Viết chương trình nhập vào số nguyên dương. Tính và in ra kết quả màn hình ;
- các số chia hết cho 3 từ 1 đến n
- có bao nhiêu số chia hết cho 3
- tổng các số đó
vd : nhập n = 20. in ra
- các số chia hết cho 3 : 3 6 9 12 15 18
- có 6 số chia hết cho 3
- tổng là ; 63
Em cần gấp giúp ẹm 
viết chương vtrình nhập n từ bàn phím ( với n thuộc N*). Tính tổng các số lẻ liên tiếp đén n và in kết quả ra màn hình. 9Suwr dụng câu lệnh lặp For...do)
viết chương vtrình nhập n từ bàn phím ( với n thuộc N*). Tính tổng các số chẵn liên tiếp đến n và in kết quả ra màn hình. Sử dụng câu lệnh lặp For...do)
Bài 1 viết ct hoàn chỉnh in ra màn hình 5 lần dòng Việt Nam Hết Dịch - sô lần in ra đc nhập từ bàn phím
Bài 2 viết ct tính tổng 20 số tự nhiên liên đầu liên tiếp - số tự nguên cần tính tổng đc nhập từ bàn phím
Viết CT đọc vào dãy số nguyên có n phần tử. Tính tổng giá trị của các phần tử đó.
Ai giúp mình đi mn, mai mình nộp cô
viết ct nhập 1 dãy số gồm n số từ bàn phím, in ra dãy vừa nhập, in ra số lẻ, chẳn trong dãy, tính tổng các số chẳn và lẻ, tính trung bình cộng các số
Câu 1: Viết CT nhập 1 dãy số nguyên gồm N phần tử in ra mà hình các phần tử có giá trị chẵn (N nhập từ bàn phím)?
Câu 2: Viết CT nhập 1 dãy số nguyên gồm N phần tử in ra mà hình tích của dãy số vừa nhập (N nhập từ bàn phím)?
Câu 3: Viết Ct nhập 1 dãy số nguyên gồm N phần tử in ra mà hình tổng các phần tử lẻ trong mảng?
**Giúp mình với, sáng mai mình phải nộp rồi ạ**
