K
Khách

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.

const fi='mang.txt';

fo='tong.txt';

var f1,f2:text;

a:array[1..100]of integer;

n,i,t:integer;

begin

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

assign(f2,fo); rewriteln(f2);

n:=0;

while not eof(f1) do 

  begin

inc(n);

read(f1,a[n]);

end;

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln(f2,t);

close(f1);

close(f2);

end.

23 tháng 4 2020

Bạn đọc kĩ đề câu 5 nhé. dulieu.dat gồm 2 dòng.

23 tháng 4 2020

Câu 3:

Program hotrotinhoc_hoc24;

const fi='dulieu.dat';

fo='dtb.dat';

var a,b,c,d: integer;

procedure ip;

begin

assign(f,fi);

reset(f);

readln(f,a,b);

read(f,c,d);

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

write(f,(a+b+c+d)/4:1:2);

close(f);

end;

begin

ip;

out;

end.

14 tháng 4 2022

Program HOC24;

var f1,f2: text;

a,b: integer;

t: longint;

begin

assign(f1,'input.pas');

reset(f1);

assign(f2,'output.pas');

rewrite(f2);

readln(f1,a,b);

t:=a*b;

write(f2,t);

close(f1);

close(f2);

End.

#include <bits/stdc++.h>

using namespace std;

long long a,b;

double tb;

int main()

{

freopen("dulieu.inp","r",stdin);

freopen("ketqua.out","w",stdout);

cin>>a>>b;

cout<<a<<" "<<b;

cout<<fixed<<setprecision(2)<<(a*1.0+b*1.0)/(2*1.0);

return 0;

}

10 tháng 5 2023

with open('XAU.INP', 'r') as input_file, open('XAU.OUT', 'w') as output_file:

        for line in input_file:

                length = len(line.strip())

                output_file.write(f'{length}\n')