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.
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.100
B.Tất cả đều sai
C.10
D.11
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.
Hãy cho biết giá trị của a và b là bao nhiêu khi kết thúc chương trình sau:Var a, b: integer;Begin a:10 ; b:6; If ab then begin a :a - b; b : a + b end; Writeln(a , a, b ,b);End.(4 Điểm)a 4; b 10a 4; b 16a 10; b 6a 10; b 4
Đọc tiếp
Hãy cho biết giá trị của a và b là bao nhiêu khi kết thúc chương trình sau:
Var a, b: integer;
Begin
a:=10 ; b:=6;
If a>b then begin a :=a - b; b := a + b end;
Writeln('a = ', a, ' b = ',b);
End.
(4 Điểm)a= 4; b = 10a= 4; b = 16a= 10; b = 6a= 10; b = 4
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.
Hãy tìm lỗi của chương trình và sửa lại cho đúng program Chuong_trinh uses crt; var a,b,c:=integer begin writeln('Nhap vao so a va b') readln(a,b) c:=a+b writeln('Ket qua :',c end
Một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:
program So_Sanh;
usescrt;
var A, B= integer;
Begin
clrscr;
writeln(‘Nhap so A: ’); readln(A);
writeln(‘Nhap so B: ‘); readln(A);
if A <> B then writeln(A,’ khac ‘,B) else writeln(B,’ = ‘,A)
readln;
End.