uses crt;
var i,s:integer;
begin
clrscr;
s:=0; i:=1;
while s<2073 do
begin
s:=s+i;
inc(i);
end;
writeln(s);
readln;
end.
Đúng 0
Bình luận (0)
Bài 8. Lặp với số lần chưa biết trước
Các câu hỏi tương tự
Mk đang cần gấp ạ
Nêu cách phân tích để thực hiện tính tổng các số chẵn lẻ liên tiếp để hiển thị ra Smax(tổng lớn nhất ) và nhỏ hơn 2073
Câu 1: viết chương trình tích P của các số tự nhiên nhỏ hơn bằng 5Câu 2: viết chương trình tính tích các số tự nhiên lẻ từ 1 đến 10 Câu 3: viết chương trình tính tổng các số tự nhiên chẵn từ 1 đến nGiúp với , theo kiểu câu lệnh while do
Xem chi tiết
Viết chương trình sử dụng lệnh lặp While ... do ... để thực hiện công việc sau
- Nhập vào số nguyên n (10<n<100)
-In ra màn hình tất cả các ước của n
-Tính tổng và thông báo các ước của n là số chẵn
Dùng câu lệnh while...do viết chương trình nhập các số nguyên kết thúc khi nhập bằng 0 . Tính tổng các số chẵn , tổng câc số lẻ đã nhập rồi in kết quả ra màn hình
Viết chương trình tính tổng các số tự nhiên để tổng lớn hơn 20 ?
Xem chi tiết
Viết chương trình nhập vào một dãy gồm N số nguyên (N được nhập từ bàn phím). In ra màn hình tổng các phần tử chẳn, tổng các phần tử lẻ và giá trị lớn nhất của dãy số.
viết chương trình thực hiện các yêu cầu sau:
a)Nhập 1 mảng A có n phần tử
b)In mảng a ra màn hình
c)Tìm giá trị lớn nhất và nhỏ nhất của mảng a
d) In các số lẻ của mảng a
e)in các số chẵn của mảng a
f)Tính tổng của mảng a và tổng số chẵn của mảng a
viết chương trình in ra tổng các số nhỏ hơn hoặc bằng n ( với n đc nhập) mai phải thi r mn giúp mk vs
Viết chương trình nhập số tự nhiên n 2 in ra màn hình các số chẵn từ 1 đến n tính tổng số chẵn Vd) N=10;các số chẵn2,4,6,8,10 Tính tổng =2+4+6+8+10