Câu 1. Xét theo cách thức truy cập dữ liệu, tệp được phân thành những loại nào?

A.  Tệp truy cập tuần tự và tệp truy cập trực tiếp.

B.  Tệp văn bản và tệp có cấu trúc.

C.  Tệp truy cập tuần tự, tệp truy cập trực tiếp và tệp có cấu trúc.

D.  Tệp văn bản, tệp có cấu trúc và tệp số nguyên.

Câu 2. Để khai báo biến tệp văn bản, ta dùng cú pháp:

A. var <tên biến tệp>: text;                             B. var <tên tệp>: text;

C. var <tên biến tệp, tên tệp>: text;                  D. var <tên biến tệp>: string;

Câu 4. Cú pháp của câu lệnh gắn tên tệp cho biến tệp:

A. assign(<biến tệp>, <tên tệp>);                     B. assign(<tên tệp>, <biến tệp>);

C. assign(<biến tệp>; <tên tệp>);                     D. assign(<tên tệp>);

Câu 1: B

Câu 2: A

Câu 3: D

Câu 4: B

Câu 5: Không có câu nào đúng

uses crt;

var a,b:array[1..1000]of integer;   

i,n,j,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

begin     

write('A[',i,']='); readln(a[i]); 

end;

for i:=1 to n do 

begin     

t:=0;     

for j:=1 to i do       

t:=t+a[j];     

b[i]:=t; 

end;

for i:=1 to n do 

write(b[i]:4);

readln;

end.

Bọn em học C++ ạ :<<

uses crt;

var a,b,c:array[1..1000]of integer;   

i,n,dem,max:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

begin     

write('A[',i,']='); readln(a[i]); 

end;

dem:=0;

max:=a[1];

for i:=1 to n do 

if max<a[i] then max:=a[i];

for i:=1 to n do 

if max=a[i] then     

begin       

inc(dem);       

b[dem]:=a[i];       

c[dem]:=i;     

end;

if dem=1 then writeln('So lon nhat la: ',b[dem],' vi tri la: ',c[dem])

else writeln('So lon nhat la: ',b[1],' vi tri la: ',c[1]);

readln;

end.

Bọn em học C++ ạ :<<

uses crt;

var a,b,c:array[1..1000]of integer;   

i,n,dem:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

begin     

write('A[',i,']='); readln(a[i]); 

end;

dem:=0;

for i:=1 to n do 

  if (a[i] mod 3=0) and (a[i] mod 5=0) then inc(dem);

writeln(dem);

readln;

end.

bọn em học C++ ạ :<<

uses crt;

var a:array[1..1000]of integer;

i,n,t,t1,dem,dem1:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

t1:=0;

dem:=0;

dem1:=0;

for i:=1 to n do  

begin

if a[i] mod 2=0 then 

begin

t:=t+a[i];

inc(dem);

end

else begin

t1:=t1+a[i];

inc(dem1);

end;

end;

writeln('So luong so chan la: ',dem);

writeln('Tong cac so chan la: ',t);

writeln('So luong so le la: ',dem1);

writeln('Tong cac so le la: ',t1);

readln;

end.

Bọn em học C++ ạ :<<

uses crt;

var a:array[1..1000]of integer;

i,n,k,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

write('Nhap k='); readln(k);

t:=0;

for i:=1 to n do 

  if a[i] mod k=0 then t:=t+a[i];

writeln('Tong cac so la boi cua ',k,' la: ',t);

readln;

end.

bọn em học C++ ạ :<<

uses crt;

var a:array[1..200]of integer;

i,n,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

writeln('Mang nguoc la: ');

for i:=n downto 1 do 

  write(a[i]:4);

writeln;

t:=0;

for i:=1 to n do 

  if (a[i] mod 2=0) and (i mod 2=1) then t:=t+a[i];

writeln('Tong cac so chan co chi so le la: ',t);

writeln('Cac so chia het cho 2 va 5 la: ');

for i:=1 to n do 

  if (a[i] mod 2=0) and (a[i] mod 5=0) then write(a[i]:4);

readln;

end.

uses crt;

var i:integer;

begin

clrscr;

for i:=0 to 9999 do 

  if trunc(sqrt(i))=sqrt(i) then write(i:4);

readln;

end.

theo C++ hay là free pascal vậy anh?

uses crt;

const fi='baitap.txt';

var f1:text;

a,b:integer;

begin

clrscr;

assign(f1,fi); reset(f1);

readln(f1,a,b);

writeln('Chu vi hinh chu nhat la: ',(a+b)*2);

close(f1);

readln;

end.