Quảng cáo
4 câu trả lời 534
uses crt;
var i: longint;
begin
clrscr;
write('Cac so co 3 chu so la: ');
for i:=100 to 999 do write(i,' ');
writeln;
write('Co ',(999-100)+1,' so co 3 chu so');
readln
end.
var i: longint;
begin
clrscr;
write('Cac so co 3 chu so la: ');
for i:=100 to 999 do write(i,' ');
writeln;
write('Co ',(999-100)+1,' so co 3 chu so');
readln
end.
đưa tất cả các số có 3 chữ số ra màn hình đếm thử có
(999-100):1+1= 900 số
.đưa tất cả các số có 3 chữ số ra màn hình đếm thử có bao nhiêu số có 3 chữ số
var n : integer = 99;
begin
while (n < 999) do begin
n := n + 1;
write(n,' ');
end; writeln('Co ',n-99,' so co 3 chu so'); readln;
end.
begin
while (n < 999) do begin
n := n + 1;
write(n,' ');
end; writeln('Co ',n-99,' so co 3 chu so'); readln;
end.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK45592
-
Đã trả lời bởi chuyên gia
29052 -
Hỏi từ APP VIETJACK28534
Gửi báo cáo thành công!
