uses crt;
var n,i,s:integer;
begin
clrscr;
write('nhap n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+sqr(i);
writeln('tong binh phuong cua ',n,' so nguyen dau tien la: ',s);
readln;
end.
uses crt;
var n,i,s:integer;
begin
clrscr;
write('nhap n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+sqr(i);
writeln('tong binh phuong cua ',n,' so nguyen dau tien la: ',s);
readln;
end.
1/ viết chương trình tính tổng bình phương s= 1² +2²+3²+... + n² với n là số nguyên dương được nhập từ bàn phím 2/ viết chương trình tính tổng của n số lẻ đầu tiên với n là số nguyên dương được nhập từ bàn phím
viết chương chình tính tổng bình phương các số chẵn từ 1 đến n, với n được nhập từ bàn phím. s = 2^2 + 4^2 + 6^2 +...+ N^2
ví dụ:
nhap n=5
tong la= 20
1 Viết chương trình tính n!=1.2.3.4....n vs n là số nguyên được nhập vào từ bàn phím.
2 Viết chương trình tính t=1+2+3+4+....+n vs n là số nguyên được nhập vào từ bàn phím.
Viết chương trình tính tổng các số là bội của 2 từ 0--> n ( n nhập từ bàn phím)
viết chương trình nhập n số nguyên từ bàn phím , nhập giá trị cho từng phần tử từ 1 đến N, đếm các số chẵn và tính tổng các số lẻ, hiện kết quả ra màn hình Giúp mik với ạ
viết chương trình sử dụng lệnh lặp for do để tính trung bình các số chẵn của n số thực các số n được nhập vào từ bàn phím
Viết chương trình sử dụng lệnh lặp While…do để tính tổng các số lẻ có trong n số nguyên a1, a2, a3, …, an. Các số n và a1, a2, a3, …, an được nhập vào từ bàn phím.
Viết chương trình nhập vào từ bàn phím 5 số nguyên bất kì, in ra tổng 5 số vừa nhập
viết chương trình tính tổng S= 1/3 + 1/5 + 1/7+....+1/(2n+1)
In kết quả ra màn hình. Với n là số nguyên dương được nhập vào từ bàn phím
viết chương trình tính tích của n số tự nhiên đầu tiên,với N số tự nhiên được nhập từ bàn phím(sử dụng câu lệnh While..Do