uses crt;
var s,i,n:integer;
begin
clrscr;
write('n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+sqr(i);
writeln('tong la: ',s);
readln;
end.
Chương trình đơn giản
Các câu hỏi tương tự
nhập một số n. tính và đưa ra màn hình căn bậc hai của n
Viết chương trình nhập từ bàn phím số nguyên n đưa ra màn hình tổng các số tự nhiên nhỏ hơn n và chia hết cho 2 và chia hết cho 3.
viết chương trình nhập từ bàn phím số nguyên dương N( N<=100) và dãy số nguyên A1,A2,...An có trị tuyệt đối nhỏ hơn 1000. Đưa ra màn hình các thông tin sau :
a. Tổng số nguyên chẵn , tổng số nguyên lẻ của dãy số.
b.Tổng giá trị của dãy số .
ai giúp em với ạ, em xin cám ơn
Viết chương trình nhập vào n số bất kì sau đó đưa ra màn hình số đó có 3 chữ số
Nhập vào bàn phím mảng 1 chiều gồm N số nguyên:
1.In ra màn hình giá trị lớn nhất
2. Tính tổng các số chẵn các số chẵn có trong mảng
3. Thông báo có bao nhiêu số âm trong mảng
4. Tính tích các phần tử dương và chia hết cho 3
( mik cần gấp lém :(( )
21 tháng 2 2021 lúc 15:25
Nhập vào một xâu từ bàn phím đưa ra màn hình mỗi từ một dòng ( từ là những ký tự cách nhau bởi ít nhất một dấu cách .)
Viết chương trình .Nhập N và k nguyên dương, nhập dãy N số nguyên.Tính tổng các số chia hết cho k có trong dãy và in ra màn hình.
Câu lệnh: writeln ('Dien tich hinh vuong la:', s); (s là một biến đã khai báo) sẽ đưa ra màn hình:
A. Dien tich hinh vuong là:
B. Dien tich hinh vuong la: <giá trị của s>
C. Câu lệnh sai cú pháp.
D. Dien tich hinh vuong là: s
Câu lệnh: writeln ('Dien tich hinh vuong la:', s); (s là một biến đã khai báo) sẽ đưa ra màn hình:
A. Dien tich hinh vuong là:
B. Dien tich hinh vuong la: <giá trị của s>
C. Câu lệnh sai cú pháp.
D. Dien tich hinh vuong là: s