Viết chương trình đưa ra ngoài màn hình 12 tháng của năm dùng vòng lặp for do
Những câu hỏi liên quan
dùng cấu trúc lặp for để viết chương trình đưa ra màn hình 10 dòng của bảng cửu chương 9
uses crt;
var i:integer;
begin
clrscr;
writeln('Bang cuu chuong 3 la: ');
for i:=1 to 10 do
writeln('3*',i,'=',3*i);
readln;
end.
Đúng 1
Bình luận (5)
tham khảo:
uses crt;
var i:integer;
begin
clrscr;
writeln('Bang cuu chuong 3 la: ');
for i:=1 to 10 do
writeln('3*',i,'=',3*i);
readln;
end.
Đúng 0
Bình luận (1)
Xem thêm câu trả lời
sử dụng vòng lặp for do viết chương trình in ra màn hình, hình vuông sau
****
****
****
****
uses crt;
var i,j:integer;
begin
clrscr;
for i:=1 to 4 do
begin
for j:=1 to 4 do
write('*');
writeln;
end;
readln;
end.
Đúng 3
Bình luận (0)
Sử dụng vòng lặp for...do em hãy viết chương trình xuất ra màn hình cửu chương 4 (nâng cấp: chỉ cần nhập cửu chương 1 đến 9 sẽ ra cửu chương đó)
Dùng cấu trúc lặp với số lần biết trước để viết chương trình đưa ra màn hình 10 dòng của bảng cửu chương 3
uses crt;
var i:integer;
begin
clrscr;
writeln('Bang cuu chuong 3 la: ');
for i:=1 to 10 do
writeln('3*',i,'=',3*i);
readln;
end.
Đúng 1
Bình luận (0)
Câu 1:Viết chương trình in ra các số nguyên tử 1→9 dùng vòng lặp While...doCâu 2:Viết chương trình in ra màn hình 100 lần tên emCâu 3:Viết chương trình tính tổng N số tự nhiên đầu tiênCâu 4:Viết chương trình tính tính T1+1/2+...+1/nCâu 5:Vòng lặp sau cho biết kết quả S? S:0;For i:1 to 5 do S :S+2Câu 6:Dòng lệnh sau thực hiện bao nhiêu vòng lặp For i:5 to 10 do
Đọc tiếp
Câu 1:Viết chương trình in ra các số nguyên tử 1→9 dùng vòng lặp While...do
Câu 2:Viết chương trình in ra màn hình 100 lần tên em
Câu 3:Viết chương trình tính tổng N số tự nhiên đầu tiên
Câu 4:Viết chương trình tính tính T=1+1/2+...+1/n
Câu 5:Vòng lặp sau cho biết kết quả S=? S:=0;For i:=1 to 5 do S :=S+2
Câu 6:Dòng lệnh sau thực hiện bao nhiêu vòng lặp For i:=5 to 10 do
[ Em hãy viết đoạn chương trình sử dụng vòng lặp For...do để in ra màn hình 10 chữ O ]
Bạn nào giúp mik đc ko, mai mik thi rồi
refer
uses crt;
var i: integer;
begin
clrscr;
for i:= 1 to 10 do
begin writeln ( ' O ' ) end;
readln
end.
Đúng 4
Bình luận (2)
tham khảo
uses crt;
var i: integer;
begin
clrscr;
for i:= 1 to 10 do
begin writeln ( ' O ' ) end;
readln
end.
Đúng 3
Bình luận (4)
Tham khảo
refer
uses crt;
var i: integer;
begin
clrscr;
for i:= 1 to 10 do
begin writeln ( ' O ' ) end;
readln
end.
Đúng 2
Bình luận (0)
Câu 1: Sử dụng vòng lặp for ... do, viết chương trình tính tổng của 10 số tự nhiên đầu tiên ?Câu 2: Viết chương trình tìm xem có bao nhiêu số dương trong N số nhập vào từ bàn phímCâu 3: Viết chương trình in ra màn hình bảng nhân của một số từ 1 đến 9, và dừng màn hình để có thể quan sát
Câu 1:
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 10 do
s:=s+i;
writeln('Tong cua 10 so tu nhien dau tien la: ',s);
readln;
end.
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i]>0 then inc(dem);
writeln('So luong phan tu duong la: ',dem);
readln;
end.
Câu 3:
uses crt;
var i,j:integer;
begin
clrscr;
for i:=1 to 9 do
begin
writeln('Bang nhan ',i,' la: ');
for j:=1 to 10 do
writeln(i,'*',j,'=',i*j);
delay(200);
end;
readln;
end.
Đúng 1
Bình luận (0)
8 tháng 3 2021 lúc 23:24
Viết chương trình đưa ra màn hình các số nhỏ hơn 30 ( số tự nhiên ) bằng hai cách :- Dùng lệnh while ...do-dùng lệnh for ...do
Xem chi tiết
Cách 1: while..do
Program HOC24;
var i: integer;
begin
i:=1;
while i<30 do
begin
write(i,' ');
i:=i+1;
end;
readln
end.
Cách 2: for..do
Program HOC24;
var i: integer;
begin
for i:=1 to 29 do write(i,' ');
readln
end.
Đúng 1
Bình luận (0)
[ Em hãy viết đoạn chương trình sử dụng vòng lặp For...do để in ra màn hình các số từ 1 đến 10 ]
giúp mik ik mai mik thi gk 2 r
tham khảo
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 10 do
t:=t+i;
writeln('Tong cac so tu nhien tu 1 toi 10 la: ',t);
readln;
end.
Đúng 1
Bình luận (0)
refer
uses crt;
var i: integer;
begin
clrscr;
for i:= 1 to 10 do
begin writeln ( ' O ' ) end;
readln
end.
Đúng 0
Bình luận (0)
Viết chương trình in ra màn hình Dãy số từ 1 đến n bằng ngôn ngữ lập trình Pascal dùng lệnh lặp for..... do với n được nhập vào từ bàn phím
Var i,n:integer;
Begin
Write('n = ');readln(n);
Write('Day so tu 1 den ',n,' la ');
For i:=1 to n do write(i:8);
Readln
End.
Đúng 1
Bình luận (0)