Các câu hỏi tương tự
Xét chương trình sau:
Var a: integer;
Begin
a:=1;
a:= a+10;
Writeln(a);
Readln;
End.
Kết quả của chương trình trên là:
A. 11
B. 100
C.10
D. Tất cả đều sai.
Xét chương trình sau:
Var a: integer;
Begin
a:=10;
a:= a+1;
Writeln(a);
Readln;
End.
Kết quả của chương trình trên là:
A. 100
B. 11
C.10
D. Tất cả đều sai.
Xét chương trình sau:
Var a: integer;
Begin
a:=1;
a:= a+10;
Writeln(a);
Readln;
End.
Kết quả của chương trình trên là:
A. 11
B. 100
C.10
D. Tất cả đều sai.
Xét chương trình sau:
Var a: integer;
Begin
a:=5;
a:= a+10;
Writeln(a);
Readln;
End.
Kết quả của chương trình trên là:
A. 15
B. 10
C.5
D. Tất cả đều sai.
Xét chương trình sau:
Var x: integer;
Begin
x:=1;
y:= 5;
Writeln(x+y);
Readln;
End.
Kết quả của chương trình trên là:
A. 1
B. 5
C.6
D. Tất cả đều sai.
20 tháng 3 2023 lúc 21:19
Hãy cho biết kết quả của đoạn chương trình dưới đây:
a := 10;
While a ≥ 10 do write(A);
A. Trên màn hình xuất hiện một chữ a
B. Trên màn hình xuất hiện 10 chữ a
C. Trên màn hình xuất hiện một số 10
D. Chương trình bị lặp vô tận
mọi người giúp mình
Sửa lỗi chương trình sau
Program bang_cuu_chuong
Uses crt;
Var N: read;
i: integer;
Begin
clrscr;
write('Nhap so N=');readln(N);
writeln;
writeln('Bang nhan ',N)
writeln;
for i:=1 to 10 do
writeln(N,' x ',i:2,' = ',N')
readln
end.
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.
2.Cho biết ý nghĩa các câu lệnh trong chương trình sau:
Progam HINH_VUONG;
uses crt;
Var canh:real;
Begin
clrssr;
Write(‘nhap do dai canh:’);readln(canh);
Writeln(‘Chu vi hinh vuong la:’,4*canh:10:2);
Writeln(‘Dien tich hinh vuong la:’canh*canh:10:2);
readln
end.