Câu1: sử dụng nnlt pascal viết ct nhập vào 1 xâu, ghi xâu vừa nhập vào tệp ketqua.txt

Câu2: đọc ct sau và trả lời câu hỏi;

Program giaiptbac1;

Var f1,f2: text;

a, b: integer;

x : real;

Begin

assign(f1 ,' input.txt'); reset(f1);

assign(f2 ,' output.txt); rewrite(f2);

while not eof(f1) do

Begin

read(f1,a,b);

x:=-b/a;

writeln(f2,' nghiem la:' , x:7:1);

End;

Close(f1);

Close(f2);

End.

a, ct sử dụng bao nhiêu tệp, biến tệp, kể tên

b, Tệp input.txt, output.txt được gắn cho những biến tệp nào? Nó dùng để đọc hay ghi dữ liệu?

c, chỉ ra câu lệnh gắn tên tệp, mở tệp của tệp input.txt và output.txt. Câu lệnh đọc tệp? Câu lệnh ghi tệp?

d, điều kiện để tham chiếu đến tất cả các cặp số nguyên trong tệp input.txt

e, ct sử dụng bao nhiêu câu lệnh đóng tệp? Không đóng tệp được không? Vì sao?

const fi='dayso.inp'
fo='dayso.out'
var f1,f2:text;
a,b,c:array[1..100]of integer;
i,n,k,dem,j,dem1,dem2,kt:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n,k);
for i:=1 to n do
read(f1,a[i]);
dem:=1;
b[1]:=a[1];
for i:=1 to n do
begin
kt:=0;
for j:=1 to dem do
if a[i]=b[j] then kt:=1;
if kt=0 then
begin
inc(dem);
b[dem]:=a[i];
end;
end;
dem1:=0;
for i:=1 to dem do
begin
dem2:=0;
for j:=1 to n do
if b[i]=a[j] then inc(dem2);
if k<=dem2 then
begin
inc(dem1);
c[dem1]:=b[i];
end;
end;
for i:=1 to dem1 do
write(f2,c[i]:4);
close(f1);
close(f2);
end.

Chuyển hộ mình từ code pascal này sang c++ với ạ.

Mình cảm ơn