uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
i:=0;
repeat
i:=i+2;
s:=s+i;
until s>1000;
writeln(s);
readln;
end.
Đúng 1
Bình luận (0)
Các câu hỏi tương tự
pascal viết chương trình tính tổng sau
S=1/4+2/9+3/16+4/25+5/36-6/49+.....
tổng này có M số hạng , với N là số nguyên dương nhỏ hơn 1000 ,N nhập từ bàn phím
hãy viết chương trình nhập vào một dãy N số nguyên từ bàn phím( N là số nguyên dương được nhập vào từ bàn phím và N10). Tính và in ra màn hình các yêu cầu sau:a. Tính tổng các số vừa nhậpb. tính tích các số vừa nhập c. tính tb các số vừa nhập d. hãy tìm số lớn nhất và số bé nhất e. hãy tìm số nhỏ nhất mà lớn hơn tb trong các số vừa nhậpf. hãy nhập vào một số nguyên X. Hãy đếm xem có bao nhiêu số không lớn hơn X trong dãygi...
Đọc tiếp
hãy viết chương trình nhập vào một dãy N số nguyên từ bàn phím( N là số nguyên dương được nhập vào từ bàn phím và N>10). Tính và in ra màn hình các yêu cầu sau:
a. Tính tổng các số vừa nhập
b. tính tích các số vừa nhập
c. tính tb các số vừa nhập
d. hãy tìm số lớn nhất và số bé nhất
e. hãy tìm số nhỏ nhất mà lớn hơn tb trong các số vừa nhập
f. hãy nhập vào một số nguyên X. Hãy đếm xem có bao nhiêu số không lớn hơn X trong dãy
giúp mik vs nha :(((
pascal viết phương trình tính tổng các tổng sau:
S:=11 .1-22 .(1+2)-33.(1+2+3)+44(1+2+3+4)+..........
tổng này có M số hạng , với M là số nguyên Dương nhở hơn 10, nhap từ bàn phím
u 3: Đánh dấu [x] vào ô đúng hoặc sai tương ứng trong các câu lệnh Pascal trong chương trình tính tổng 10 số tự nhiên đầu tiên, nếu sai sửa lại?Câu lệnh Đúng Sai Sửa lạiProgram Chuong trinhVar i,s : real;Const n:10;BeginWile i n do;BeginS:s+ii i+1End.Writeln(s)ReadlnEnd;giúp mik với mình cần gấp ạ
Đọc tiếp
u 3: Đánh dấu [x] vào ô đúng hoặc sai tương ứng trong các câu lệnh Pascal trong chương trình tính tổng 10 số tự nhiên đầu tiên, nếu sai sửa lại?
Câu lệnh Đúng Sai Sửa lại
Program Chuong trinh
Var i,s : real;
Const n:=10;
Begin
Wile i <=n do;
Begin
S:=s+i
i =i+1
End.
Writeln(s)
Readln
End;
giúp mik với mình cần gấp ạ
cách viết chương trình nhập vào dãy gồm n số nguyên, hãy cho biết phần tử lớn nhất phần tử nhỏ nhất và tính trung bình của dãy số vừa nhập
VIẾT CHƯƠNG TRÌNH TÍNH TỔNG S = 1+2+3+....N SAO CHO TỔNG S NHỎ NHẤT > 700 KHI CHẠY CHƯƠNG TRÌNH SẼ CHO KẾT QUẢ NHƯ SAU: S NHỎ NHẤT ĐỂ TỔNG > 700 LÀ= 38 S ĐẦU TIÊN LỚN HƠN 700 LÀ = 703
Viết chương trình sử dụng biến mảng, nhập vào một dãy số nguyên, in dãy số đó ra màn hình và số lượng phần tử là số chẵn trong dãy
giúp mik vs :)))))
, vt chương trình tính tổng các số trog khoảng từ m đến n(m,n nhập từ bàn phím),đưa kết quả tìm đc ra màn hình
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.