uses crt;
var i,n,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do t:=t+i;
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)
Các câu hỏi tương tự
Viết chương trình kiểm tra một số có phải là số chính phương hay không số được nhập là số nguyên dương
Viết chương trình in ra màn hình giá trị lớn nhất của dãy số n số nguyên được nhập từ bàn phím
nhập 1 số n và kiểm tra xem số n có phải số nguyên tố không?
help me!!!!
lm ơn ai ko bít thì đừng nhắn linh tinh nha ai bít thì lm hộ mình với ạ!!!T_T
Hãy thực hiện 3 bước của việc giải một bài toán trên máy tính để giải bài toán sau. Tính tổng A=1+1/2+1/3+1/4+...+1/n( n khác 0, n nhập vào từ bàn phím
Xem chi tiết
Hãy cho biết đoạn câu lệnh sau có bao nhiêu vòng lặp, khi kết thúc giá trị T là bao nhiêu T :=0 ; n :=0 While T < = 10 do Begin n := n+1; T := T+n; end;
Giúp em với ạ,em cảm ơn nhiều
Viết chương trình nhập vào dạy n số nguyên(0<n<=10^6)
in dãy vừa nhập lên màn hình(theo hàng,mỗi số cách nhau 1 dấu phẩy)
-Tính tổng là trung bình cộng các phần tử tại các vị trí chẵn
-Tính số lượng các sô nguyên tố có trong dãy
viết chương trình nhập điểm trung bình của các bạn trong lớp. In ra màn hình số bạn giỏi của lớp
mọi người giúp e với ạ
Viết chương trình in ra màn hình tổng của n số lẻ đầu tiên với n nhập từ bàn phím
nhập 2 số bất kì từ bàn phím in ra màn hình
a) phần nguyên của a chia b
b) phần dư của a chia b
vct nhập vào 1 số n. In ra màn hình thông báo n là số chắn hoặc n là số lẻ