Bài 8. Lặp với số lần chưa biết trước

HP
Viết chương trình nhập vào một số n. Việc nhập kết thúc khi n=0. Đếm xem có bao nhiêu số được nhập vào. In Dem.
NT
1 tháng 3 2021 lúc 12:43

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.

Bình luận (0)

Các câu hỏi tương tự
BT
Xem chi tiết
NL
Xem chi tiết
TT
Xem chi tiết
GV
Xem chi tiết
PT
Xem chi tiết
LA
Xem chi tiết
HC
Xem chi tiết
NY
Xem chi tiết
NO
Xem chi tiết