const fi='nhap.txt';

uses crt;

var

f:text;

b:byte;

a:longint;

begin

clrscr;

assign(f,f1);

reset(f);

read(f,a,b);

close(f);

a:=exp(b*ln(a));

write('ket qua la: ',a);

readln;

end.

Program HOC24;

const fi='INPUTC2.TXT';

var s,r: real;

f: text;

procedure ip;

begin 

assign(f,fi);

reset(f);

read(f,r);

s:=r*r*pi;

close(f);

end;

begin

ip;

write('S= ',s:1:2);

readln

end.

with open("a.txt", "r") as f:

     numbers = list(map(int, f.readline().split()))

product = 1

for number in numbers:

     product *= number

print("Tích các số trong file a.txt là:", product)

Đưa kết quả ra màn hình mà bạn.

const fi='tep1.txt';

fo='ketqua.txt';

var

f1,f2:text;

b,d,f:byte;

T,a,c,e:longint;

begin

assign(f1,fi);

assign(f2,fo);

reset(f1);

rewrite(f2);

Readln(f1,a,b,c,d,e,f);

close(f1);

a:=exp(b*ln(a));

c:=exp(d*ln(c));

e:=exp(f*ln(e));

t:=a+c;

t:=t+e;

writeln(f2,t);

close(t2);

end.

nếu viết chương trình giống như v nhưng cho vô hạn số thì sao ạ

const fi='data1.txt';

fo='data2.txt';

var f1,f2:text;

a,b:real;

begin

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

assign(f2,fo); rewrite(f2);

readln(f1,a,b);

writeln(f2,(a+b)/2:4:2);

close(f1);

close(f2);

end.

uses crt;

const fi='dulieu.txt';

var f1:text;

a,b,c,d:integer;

begin

clrscr;

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

readln(f1,a,b,c,d);

writeln(a*b*c*d);

close(f1);

readln;

end.