var i,s:integer;
begin
s:=0;
for i:=1 to 50 do s:=s+i;
write('Tong:', s);
readln;
end.
Đúng 2
Bình luận (7)
Lập trình đơn giản
Các câu hỏi tương tự
viết chương trình tính tổng của 30 số tự nhiên đầu tiên
Viết chương trình tính tổng các số chẵn của dãy 20 số tự nhiên đầu tiên (khác 0)
Xem chi tiết
viết chương trình tính tổng 100 số tự nhiên chẵn đầu tiên
Câu 1: Sử dụng vòng lặp for ... do, viết chương trình tính tổng của 10 số tự nhiên đầu tiên ?Câu 2: Viết chương trình tìm xem có bao nhiêu số dương trong N số nhập vào từ bàn phímCâu 3: Viết chương trình in ra màn hình bảng nhân của một số từ 1 đến 9, và dừng màn hình để có thể quan sát
BH
12 tháng 5 2021 lúc 10:42
Câu 8. Viết thuật toán và chương trình hoàn chỉnh sử dụng câu lệnh For … do để tính tổng của 20 số tự nhiên đầu tiên S1+2+3+...+20 (3 điểm)Câu 9 (1 điểm). Cho đoạn chương trình: j: 2; For i: 1 to 5 do j: j + 2;Sau khi thực hiện đoạn chương trình trên, giá trị của biến j bằng bao nhiêu?Giải thích?
Đọc tiếp
Câu 8. Viết thuật toán và chương trình hoàn chỉnh sử dụng câu lệnh For … do để tính tổng của 20 số tự nhiên đầu tiên S=1+2+3+...+20 (3 điểm)
Câu 9 (1 điểm). Cho đoạn chương trình: j:= 2;
For i:= 1 to 5 do j:= j + 2;
Sau khi thực hiện đoạn chương trình trên, giá trị của biến j bằng bao nhiêu?
Giải thích?
Bài tập 1: Viết chứng trình tính tổng 3 số nguyên được nhập từ bàn phím
Bài tập 2: Viết chương trình nhập vào một số và in ra màn hình kết quả số chẵn hay số lẻ
Bài tập 3: Mô tả thuật toán tính tổng của 100 số tự nhiên đầu tiên
Viết chương trình tính tổng N số lẻ đầu tiên
Hãy hoàn thiện chương trinh tính tổng 100 để số tự nhiên đầu tiên:
…User crt;……S:=0;For … doS:=…Writeln (‘Gia tri cua tong S=’, s);Readln;…viết chương trình tính tổng của các số tự nhiên từ 1 đến 100 KHÔNG DÙNG LỆNH while do