Cho câu lệnh For i:= 5 to 10 do write(‘Chao ban’); Câu ‘Chao ban’ xuất ra mấy lần:

Hãy cho biết giá trị của M sau khi thực hiện đoạn chương trình sau với a=19 và b=12 ?

M := a ;

If a<b then M := b ;

Số câu lệnh trong câu lệnh ghép là bao nhiêu?

Câu 11

Cho biết câu lệnh sau sai ở đâu? IF DTB>5 then Write(‘Do’); Else Write(‘Truot’);

phần mở rộng của tập tin Pascal chứa tối đa bao nhiêu kí tự?

Cho biết kết quả khi thực hiện đoạn chương trình sau:

d:=0;

For i:=1 to 10 do d:= d+1;

Write(d);

Cho khai báo sau :

Var Xau: string;

Phát biểu nào dưới đây là đúng ?

Cho biết màn hình xuất hiện như thế nào với đoạn chương trình sau:

d:=0;

For i:=1 to 10 do

Begin

i:= i+1;

Write(d,' ');

End;

Hãy điền vào chỗ (…).

S:= 'Le Loi Dong Ha' ; Delete ( S ,…, ...); để thu được kết quả S= 'Dong Ha'

Kh​i chạy chương trình:

Var S, i, j : Integer;
Begin
S := 0;
for i:= 1 to 3 do
for j:= 1 to 4 do S := S + 1 ;
End.
Giá trị sau cùng của S là :

Khi điều kiện đúng, câu lệnh IF <điều kiện> Then <câu lệnh1> Else <Câu lệnh2>; sẽ thực hiện

Cho ST:= 'Ngay 1 thang 11‘;

C:=Pos('1',ST) -> C=…

Cho các biến St chuỗi và k nguyên. Sau khi gán:
St:='Sinh vien Tin hoc hoc Tin hoc'
k := Pos('Tin', ST) ;
- Giá trị của k là :

Cho khai báo mảng sau:

Var P: array [1..50] of word;

Tham chiếu đến một phần tử của mảng P nào sau đây là SAI?

Đoạn chương trình sau thực hiện việc nào trong các việc sau:

S:=0;

For i:= 1 to n do S:=S+ A[i];

Lệnh Write trong đoạn chương trình sau thực hiện bao nhiêu lần ?

FOR i:=1 TO 3 DO

FOR j:=2 TO 5 DO Write (i,' ',j);

Cho sâu s1 = ‘123’; s2 = ‘abc’ sau khi thực hiện thủ tục Insert(s1, s2, 2) thì:

Khi chạy chương trình :
Var St : String;
i,L : integer;
Begin
St:='ABCD' L := Length(St);
For i:= L Downto 1 do write (St[i]);

End.
Chương trình in ra :

thủ tục chèn xâu S1 vào xâu S2 bắt đầu từ vị trí vt được viết:

sau khi thực hiện đoạn chương trình sau, giá trị của biến S là:

S:=’Ha Noi mua thu’;

Delete(S,7,8);

Insert(‘Mua thu ‘,S,1);

Đoạn chương trình sau thực hiện việc nào trong các việc sau:

S:=0;

For i:= 1 to n do S:=S+ i;

Cho s = ‘500 ki tu’, hàm Length(s) cho giá trị bằng:

đoạn chương trình sau thực hiện công việc nào trong các công việc sau:

i:=pos(‘ ‘,S); {‘ ’ là 2 dấu cách}

While i<>0 do

Begin

Delete(s, i, 1);

i:=pos(‘ ‘, s);

End;