Những câu hỏi liên quan
Yến Chi Phan Nguyễn
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 3 2022 lúc 6:55

uses crt;

const fi='dulieu.dat'

var f1:text;

a,b,p,s:array[1..100]of real;

i,n:integer;

begin

clrscr;

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

n:=0;

while not eof(f1) do 

begin

n:=n+1;

readln(a[n],b[n]);

end;

for i:=1 to n do 

  begin

p[i]:=(a[i]+b[i])/2;

s[i]:=a[i]*b[i];

end;

for i:=1 to n do 

  writeln(p[i]:4:2,' ',s[i]:4:2);

close(f1);

readln;

end.

Bình luận (0)
Thương Thương
Xem chi tiết
Đoàn Xuân Sơn
10 tháng 3 2022 lúc 1:01

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.

Bình luận (1)
Nguyễn Văn Hùng
Xem chi tiết
Hiếu Đinh
Xem chi tiết
Nguyễn Lê Phước Thịnh
24 tháng 2 2022 lúc 13:38

#include <bits/stdc++.h>

using namespace std;

string st;

int d,i;

int main()

{

freopen("chu_so.txt", "r",stdin);

getline(cin,st);

d=st.length();

for (i=0; i<=d; i++) 

if (48<=st[i] && st[i]<=57) cout<<st[i]<<" ";

return 0;

}

Bình luận (0)
Nguyên lê
Xem chi tiết
Fax Cơ
Xem chi tiết
Trần Văn Lượng
Xem chi tiết
Nguyễn Lê Phước Thịnh
19 tháng 4 2021 lúc 21:57

uses crt;

const fi='kiemtra.txt'

var f1:text;

a,b,c:integer;

begin

clrscr;

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

readln(f1,a);

readln(f1,b);

readln(f1,c);

writeln((a+b)*(a+c)*(c+b));

close(f1);

readln;

end.

Bình luận (1)
Trần Văn Lượng
Xem chi tiết
Nguyễn Lê Phước Thịnh
20 tháng 4 2021 lúc 22:26

uses crt;

const fi='kiemtra.txt'

var f1:text;

a,b,c:integer;

begin

clrscr;

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

readln(f1,a,b,c);

writeln((a+b)*(a+c)*(b+c));

close(f1);

readln;

end.

Bình luận (0)
A3-37-Bùi Ngọc Phương Tr...
Xem chi tiết