Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Câu 8. Câu lệnh while – do có cú pháp nào dưới đây?
A. while <điều kiện> do <câu lệnh>;
B. write <điều kiện> do <câu lệnh>;
C. while <điều kiện> to <câu lệnh>;
D. while <điều kiện> begin <câu lệnh>;end;
Câu 9. Cho biết kết quả khi thực hiện đoạn câu lệnh:
S:=0;
For i:=1 to 12 do if i mod 2 <>0 then S:=S+i;
Kết quả:
A. S=38
B. S=36
C. S=45
D. S=32
Câu 10. Cho biết kết quả khi thực hiện đoạn câu lệnh:
c:=a; a:=a-b; b:=a*c; S:=a+b;
Khi a=6 ; b=2. Kết quả:
A. S= 8
B. S= 9
C. S= 12
D. S=2
Câu 5. Trường hợp nào sau đây không phải là lệnh gán trong Pascal
A. cd := 50;
B. 10 := a;
C. a := a * 2;
D. ab := 1000;
Câu 6: Các biểu diễn của phép toán số học với số nguyên trong Pascal là:
A. +, -, *, /, div, mod
B. +, -, *, /
C. +, -, *, div, mod
D. +, -, x,:
Câu 4. Cho biết kết quả trả về của biểu thức sau:
(100 div 9) mod 9 + (14 div 3) div 2.
A. 10
B. 5
C.3
D. 4
uses crt;
const finp='Bai1.inp';
fout='Bai1.out';
type mangc=array[1..10000] of char;
mangl=array[1..10000] of longint;
var f:text;
ch:mangc; a:mangl;
n:longint;
procedure doc;
var i:longint;
begin
assign(f,finp);
reset(f);
readln(f,n);
for i:=1 to n do read(f,ch[i]);
close(f);
end;
procedure ghi;
begin
assign(f,fout);
rewrite(f);
end;
procedure tim;
var i,j,d,k,l:longint;
begin
for i:=n-2 downto 1 do
begin
a[i]:=1;
d:=0;
for j:=i+1 to n do
begin
l:=a[j];
if ch[i]=ch[j] then a[j]:=d+2
else if a[j-1]>a[j] then a[j]:=a[j-1];
d:=l;
end;
end;
end;
procedure xuly;
var i:longint;
begin
fillchar(a,sizeof(a),0);
if n=1 then a[n]:=1
else begin
a[n-1]:=1;
a[n]:=ord(ch[n]=ch[n-1])+1;
end;
if n>2 then tim;
write(f,n-a[n]);
end;
begin
doc;
ghi;
xuly;
close(f);
end.
ai có thể giải thích cho mình bài này đc không
nhất là cái "procedure tim" và mục đích của mảng số nguyên a
mk cảm ơn nhiều
Câu 3. Hãy chọn biểu diễn tên đúng trong Pascal?
A. _AB234
B. 100ngan
C. ‘*****’
D. Bai tap