Chương trình thiếu cậu ơi, thêm vào ạ
Chương trình thiếu cậu ơi, thêm vào ạ
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.
Cho đoạn chương trình sau:
i:=1; tong:=0;
While i <= 5 do
Begin
tong:= tong + i;
i:= i + 1;
End;
Sau đoạn chương trình trên em hãy cho biết biến “tong” có giá trị bằng bao nhiêu?
A.1
B.5
C.10
D.15
Đối với từng đoạn chương trình Pascal sau đây, hãy cho biết lệnh writeln in ra màn hình giá trị của i , j, k là bao nhiêu?
i:=1; j:=2; k:=3;
while i<6 do i:=i+1; j:=j+1; k:=k+j;
writeln(i,’ ’, j,’ ’, k);
Giá trị của j, k sau khi thực hiện đoạn chương trình là?
Tìm và sửa lỗi trong chương trình pascal sau:
Uses crt;
Var i, n, t : integer;
Begin
clrscr;
write('Nhap so n = '); readln(n);
i := l; t := 0;
while i <= n do
begin
t := t + i;
i := i + l;
write('Tong = ', t);
Readln;
end.
Hãy tìm hiểu đoạn chương trình sau đây.
i:=1; j:=2; k:=3; |
While i<=6 do i:=i+1; j:=j+1; k:=k+j; |
Space:=’ ’; |
Write(I,space,j,space,k); |
Sau khi thực hiện đoạn chương trình trên, lệnh Writeln in ra màn hình giá trị của i, j, k lần lượt là bao nhiêu?
A. 2,3,4 B. 7,2,3 C. 7,3,6 D. 6,3,7
Câu 6: Cho biết kết quả in ra màn hình của đoạn chương trình sau
Câu a)
i := -1;
j:= 20;
For k:= 1 to 5 do
If k mod 2 = 0 then i:= i + 1;
j := j + i;
Writeln(i,‘ ’,j);
Câu b)
n := 127;
m := 0;
While n < >0 do
Begin
m := m * 10 + n mod 10;
n := n div 10;
end;
writeln(m);
Chương trình Pascal sau đây thực hiện hoạt động nào?
var i: integer;
begin
for i:=1 to 99 do;
end.
A. Chương trình chạy biến i từ 1 đến 100.
B. Chương trình chạy biến i từ 1 đến 99 rồi không làm gì cả.
C. Chương trình chạy biến i từ 1 đến 100 rồi không làm gì cả.
D. Chương trình chạy biến i từ 1 đến 99.