uses crt;
var n,dem:integer;
begin
clrscr;
dem:=0;
repeat
write('Nhap n='); readln(n);
dem:=dem+1;
until n=0;
writeln(dem);
readln;
end.
Đúng 2
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ự
Viết chương trình nhập vào 1 số n. Việc nhập kết thúc khi n là kí tự. Đếm số được nhập vào
Xem chi tiết
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 dãy số. Sau đó đếm xem có bao nhiêu số chia hết cho 2,3 . rồi sắp xếp theo thứ tự giảm đần. Giúp e vs cần gấp lắm
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
cho mình hỏi nhanh nha viết chương trình nhập vào số nguyên cho đến khi gặp số 0 thì kết thúc. đếm xem có bao nhiêu số vừa nhập vào
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)
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 nhập vào một số nguyên n a. Tìm ước của n b. Kiểm tra xem n có phải số nguyên tố không
Viết chương trình nhập vào dãy số tự nhiên. Đếm và in ra màn hình số phần tử chẵn, tính tổng số phần tử chẵn trong n số vừa nhập. (Lưu ý không dùng mảng)
Mọi người ơi, giúp em với ạ