Program HOC24;
var i,n: integer;
S:longint;
begin
write('Nhap n: '); readln(n);
s:=0;
for i:=1 to n do s:=s+i*i;
write('S= ',s);
readln
end.
Đúng 3
Bình luận (3)
Các câu hỏi tương tự
viet chuong trinh nhap vao tu ban phim so nguyen duong N , tinh tong gia tri chia het cho 3 trong pham vi tu 1 den N , sau do in ra man hinh
viet chuong trinh nhap vao cac so nguyen tu ban phim va tinh tong cua chung.Chuong trinh dung lai khi tong lon hon hoac bang a(a la so nhap tu ban phim)va thong bao tong do ra man hinh(Free Pascal)
Giup minh voi
viet chuong trinh nhap so n nguyen duong (n<=100) sau do tinh tong cai so tu 1 den N viet ket qua ra man hinh
Viet chuong trinh nhap vao N so tu ban phim. Tinh tong,tich,hieu cac so vua nhap vao
Sử dụng câu lệnh While .. do để viết chương trình tính tổng: S = 1+2+3+…+n . Trong đó n là số nguyên nhập từ bàn phím.
viết chương trình sử dụng câu lệnh lặp while...do hoặc for to do để tính tổng s=2+4+6...+n,n là số nguyên nhập từ bàn phím.In kết quả ra màn hình
viet chuong trinh nhap vao mang so nguyen a(toi da 100 phan tu) tu ban phim in len man hinh cac phan tu chia het cho K (khong duoc nhap vao tu ban phim khi chay chuong trinh) trong mang
viết chương trình pascal tính 2/3+2/4+2/5+...2/n (biết n là số nhập từ bàn phím) bằng câu lệnh while..do hoặc for..to..do
viet chuong trinh nhap 1 day so sau do in ra man hinh cac so chinh phuong