uses crt;
var i,s:integer;
begin
clrscr;
s:=0;
for i:=1 to 60 do
s:=s+i;
writeln(s);
readln;
end.
Đúng 1
Bình luận (0)
Các câu hỏi tương tự
Cho chương trình Tính Tổng Các Số Tự Nhiên Từ S1+2+3+ ...... (Khi Tổng S đầu tiên 1000 thì dừng). Hỏi cộng bao nhiêu số?Hãy Tìm lỗi trong chương trình và sửa lỗi viết lại chương trình cho đúng:Program tinh_tong;Var n S: IntegerBeginn: 0;S 0;While S 1000 don: n + 1; S: S + n Writeln(‘Can cong’,n-1,’so va tong dau tien 1000 la’, S); Readln;End.
Đọc tiếp
Cho chương trình Tính Tổng Các Số Tự Nhiên Từ S=1+2+3+ ...... (Khi Tổng S đầu tiên > 1000 thì dừng). Hỏi cộng bao nhiêu số?
Hãy Tìm lỗi trong chương trình và sửa lỗi viết lại chương trình cho đúng:
Program tinh_tong;
Var n S: Integer
Begin
n: 0;
S = 0;
While S< 1000 do
n:= n + 1;
S:= S + n
Writeln(‘Can cong’,n-1,’so va tong dau tien > 1000 la’, S);
Readln;
End.
Viết chương trình nhập vào 1 số nguyên dương N.Sau đó in ra màn hình tổng của các số chẵn số trong N số tự nhiên đầu tiên (S=2+4+6+...+N)
viết chương trình tổng của n số tự nhiên đầu tiên
viết chương trình tổng của 30 số tự nhiên đầu tiên
dùng ngôn ngữ lập trình Pascal,viết chường trình tính tổng 50 số tự nhiên đầu tiên.( dùng While..do,hoặc For..do)
viết chương trình tổng các số lẻ của n số tự nhiên đầu tiên, n nhập từ bàn phím.
Viết chương trình tính tổng của các số tự nhiên chẳn đầu tiên sao cho lớn hơn 69
Viết chương trình tính và in tổng 10 số tự nhiên đầu tiên
LM
8 tháng 3 2022 lúc 18:51
Viết chương trình tính tổng của N số tự đầu tiên với N là số tự nhiên được nhập vào từ bàn phím