uses crt;
var a,t:integer;
begin
clrscr;
t:=0;
repeat
write('Nhap a='); readln(a);
t:=t+a;
until a=0;
writeln(t);
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ự
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 pascal nhập vào đầy đủ n số tự nhiên ( n được nhập từ bàn phím) sử dụng lệnh lặp chưa biết trước số lần lặp để tính tổng các số đó và thông báo kết quả ra màn hìnhIn ra màn hình trung bình của cấc số đã cho ở trên
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
(Viết chương trình Pascal sử dụng câu lệnh while...do)
1. Viết chương trình nhập vào 1 dãy gồm n số nguyên và tính tổng, trung bình của dãy vừa nhập.
2. Viết chương trình nhập 1 số nguyên x, kiểm tra số vừa nhập có phải số nguyên tố hay không.
Nhập từ bàn phím số thực x biểu diễn điểm HS (0≤x≥10) và được làm tròn 1/4 điểm. Vd: các số nhập vào hợp lệ: 7.25, 6.5, 9.0, 8.75. Chương trình cảnh báo số nhập vào không hợp lệ và yêu cầu nhập lại và chỉ kết thúc khi số hợp lệ được nhập.
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ố.
a)Viết chương trình nhập vào 1 số nguyên N < 100. Nếu N là số chẵn thì in ra màn hình các số chẵn từ 0 đến Nb)Viết chương trình nhập vào 1 số nguyên N < 100. Nếu N là số lẻ thì in ra màn hình các số lẻ từ 1 đến N
Xem chi tiết
viết chương trình sử dụng biến mảng nhập vào n số nguyên từ bàn phím và in ra màn hình tổng các số chia hết cho 3
Viết chương trình nhập vào từ bàn phím một số nguyên dương n, in ra màn hình các số lẻ nhỏ hơn hoặc bằng số nguyên dương n. Chương trình yêu cầu nhập lại nếu n <=0. (Sử dụng câu lệnh While … do)