Các câu hỏi tương tự
dùng câu lệnh lặp for..to để viết chương trình in ra màn hình bằng kết quả :
0 1 2 3 4 5 6
10 11 12 13 14 15 16
30 31 32 33 34 35 36
40 41 42 43 44 45 46
70 71 72 73 74 75 76
Câu 13: While S<=20 do Writeln(S); Điều kiện để dừng chương trình là
A. S>20
B. S=20
C.S<>20
D. S<20
Viết chương trình :1.In ra màn hình bảng cửu chương của số N trong khoảng 1 đến 92.In ra màn hình các số từ 0 đến 99 theo dạng bảng như sau :0 1 2 3 ....... 910 11 12 13 ....... 1920 21 22 23 ... 29...90 91 92 93 ... 993/Sử dụng lệnh lặp While hoặc For để tính trung bình của N số thực x1,x2,x3,.....xn Các số N và x1,x2,x3,.....xn đc nhập từ bàn phím
Đọc tiếp
Viết chương trình :
1.In ra màn hình bảng cửu chương của số N trong khoảng 1 đến 9
2.In ra màn hình các số từ 0 đến 99 theo dạng bảng như sau :
0 1 2 3 ....... 9
10 11 12 13 ....... 19
20 21 22 23 ... 29
.
.
.
90 91 92 93 ... 99
3/Sử dụng lệnh lặp While hoặc For để tính trung bình của N số thực x1,x2,x3,.....xn Các số N và x1,x2,x3,.....xn đc nhập từ bàn phím
DN
14 tháng 1 2022 lúc 9:11
Viết chương trình nhập vào 3 số a, b, c. Nếu 3 số đó là 3 số chẵn thì tính tích, còn lại thì tính tổng và in kết quả ra màn hình.
Đối với từng đoạn chương trình Pascal sau đây hãy cho biết có bao nhiêu vòng lặp và lệnh writeln (s) in ra màn hình giá trị của s là bao nhiêu?
S:=20; n:=0;
While S>5 do
Begin
n:=n+3;
S:=S-n;
End;
Writeln(S);
Xem chi tiết
Cho đoạn chương trình sau, hãy cho biết có bao nhiêu chữ 'A' được in ra màn hình? Giải thích?
Var i: integer;
Begin
i:=5;
while i<10 do
Begin
Writeln('A')
i:=i+1;
End;
Readln;
End.
viết chương trình tính hiệu c = a - b với a b là hai số nguyên nhập từ bàn phím. Giúp em với ạ em cảm ơn nhiều lắm<33
Câu 15: Cho đoạn chương trình:
j:= 1;
for i:=1 to 5 do j:= j+2;
Sau khi thực hiện chương trình trên, giá trị của biến j bằng bao nhiêu?
A. 6; B. 11; C. 13; D. 14.
cho đoạn chương trình sau a:1; while a10 do write ( a); a:a+1;A. In ra từ 1 đến 9B. In ra từ 1 đến 10C. lặp vô hạnD. In ra 10Đáp án của bạn:ABCDCâu 02:Câu lệnh nào sau đây viết đúngA. While ab do aa+1;B. White ab do a:a+1;C. While a b do a:a+1;D. while a b do ; a:a+1Đáp án của bạn:ABCDCâu 03:kq:0; while 2*a b do begin a:2*a; kq:kq+1; end;A. 8B. 2C. 6D. 4Đáp án của bạn:ABCDCâu 04:Đoạn chương trình nào sau không bị lỗiA. For i:1 to n do x:x+1B. For i1 to n do x:x+1;C. For i:1 to n do xx+1;D. For...
Đọc tiếp
cho đoạn chương trình sau a:=1; while a<10 do write ( a); a:=a+1;
A. In ra từ 1 đến 9B. In ra từ 1 đến 10C. lặp vô hạnD. In ra 10
Đáp án của bạn:
ABCDCâu 02:
Câu lệnh nào sau đây viết đúngA. While a<b do a=a+1;B. White a<b do a:=a+1;C. While a< b do a:=a+1;D. while a< b do ; a:=a+1Đáp án của bạn:
ABCDCâu 03:
kq:=0; while 2*a< b do begin a:=2*a; kq:=kq+1; end;A. 8B. 2C. 6D. 4
Đáp án của bạn:
ABCDCâu 04:
Đoạn chương trình nào sau không bị lỗiA. For i:=1 to n do x:=x+1B. For i=1 to n do x:=x+1;C. For i:=1 to n do x=x+1;D. For i:=1 to n do x:=x+1;Đáp án của bạn:
ABCDCâu 05:
với a:=5; b:=6 ; ta có while b> a do b:=b+1;A. lặp vô hạnB. 1000C. 1000000D. 7Đáp án của bạn:
ABCDCâu 06:
Đoạn lệnh sau cho kết quả x bao nhiêu. X:=0; for i:=1 to 5 do x:=x+i;A. 15B. 5C. 0D. 20Đáp án của bạn:
ABCDCâu 07:
Cú pháp câu lệnh lặp biết trướcA. For < biến đếm> : = < giá trị đầu> to < giá trị cuối> do;B. For < biến đếm> = < giá trị đầu> to < giá trị cuối> doC. For < biến đếm> ; = < giá trị đầu> to < giá trị cuối> doD. For < biến đếm> : = < giá trị đầu> to < giá trị cuối> doĐáp án của bạn:
ABCDCâu 08:
với d:=0; while d<n do begin d:=d+1; if d mod 10=0 then n:=n+3; end; wrtite(n); Với n=10 thì cho kết quả cuối cùng của n là bao nhiêu?A. 11B. 12C. 10D. 13
Đáp án của bạn:
ABCDCâu 09:
Cho đoạn chương trình a:=3; b:=2; while b< a do b:=b+1; kết quả của a,b sau khi kết thúc lặp làA. 3,4B. 3,3C. 2,3D. 3,2Đáp án của bạn:
ABCDCâu 10:
Cú pháp câu lệnh lặp chưa biết trướcA. While < điều kiện > doB. White < phép gán> do;C. While < điều kiện> do ;D. White < phép gán> doĐáp án của bạn:
ABCDCâu 11:
Cho đoạn chương trình a=3; b:=2; while b< a do b:=a; kết quả của a,b sau khi kết thúc lặp làA. 2,3B. 3,4C. 3,3D. 3,2Đáp án của bạn:
ABCDCâu 12:
Câu lệnh ghép là câu lệnh đặt giữa từ khóaA. begin;… end.B. Begin … end;C. Begin .. end.D. begin.. readln.Đáp án của bạn:
ABCDCâu 13:
Đoạn lệnh sau cho kết quả x bao nhiêu. X:=0; for i:=1 to 5 do x:=x+1;A. 15B. 5C. 20D. 0Đáp án của bạn:
ABCDCâu 14:
kq:=0; while 2*a< b do begin a:=2*a; kq:=kq+1; end;A. 2B. 4C. 3D. 1
Đáp án của bạn:
ABCDCâu 15:
Đoạn chương trình nào sau không bị lỗiA. For i:=10 to 1 do x:=x+1;B. For i:=1 to 10 do x = x+1;C. for i:=1 to 10 do x:=x+1D. For i:=10 to 1 do x:=x+1Đáp án của bạn:
ABCDCâu 16:
Đoạn lệnh sau cho kết quả x bao nhiêu. X:=0; for i:=5 to 1 do x:=x+i;A. 5B. 20C. 15D. 0Đáp án của bạn:
ABCDCâu 17:
for i:=1 to n do if n mod 2 =0 then s:=s+i; với n =6 thì kết quả s là?A. 15B. 0C. 21D. 5Đáp án của bạn:
ABCDCâu 18:
cho đoạn chương trình sau a:=1; while a<10 do begin write ( a); a:=a+1; end;A. In ra từ 1 đến 10B. In ra 10C. In ra từ 1 đến 9D. lặp vô hạn
Đáp án của bạn:
ABCDCâu 19:
s:= 0; for i:=1 to n do if n mod 2 =0 then s:=s+i; với n =5 thì kết quả s là?A. 15B. 1C. 5D. 0Đáp án của bạn:
ABCDCâu 20:
Cho đoạn chương trình a:=3; b:=2; while b< a do begin b:=a; a:=b end; kết quả của a,b sau khi kết thúc lặp làA. 2,3B. 3,3C. 3,2D. 3,4