Những câu hỏi liên quan
Thương Thương
Xem chi tiết
Đoàn Xuân Sơn
10 tháng 3 2022 lúc 1:04

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.

Bình luận (0)
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)
Ly Trần
Xem chi tiết
Nguyễn Lê Phước Thịnh
20 tháng 4 2022 lúc 17:10

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.

Bình luận (0)
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
Chí Nguyễn
Xem chi tiết
Bùi Anh Tuấn
14 tháng 3 2021 lúc 20:59

Bình luận (1)
Minh Lệ
15 tháng 3 2021 lúc 18:55

Program HOC24;

const fi='INPUTC2.TXT'

var s: longint;

a,b: integer;

f: text;

procedure ip;

begin 

assign(f,fi);

reset(f);

read(f,a,b);

s:=a*b;

close(f);

end;

begin

ip;

write('S= ',s);

readln

end.

Bình luận (0)
Bách Phan xuân
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 3 2021 lúc 20:28

const fi='dulieu.inp'

fo='kq.inp'

var f1,f2:text;

a,b,c,delta:real;

begin

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

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

readln(f1,a,b,c);

delta:=sqr(b)-4*a*c;

if delta<0 then writeln(f2,'Phuong trinh vo nghiem');

if delta=0 then writeln(f2,'Phuong trinh co nghiem kep la: ',-b/(2*a):4:2);

if delta>0 then 

begin

writeln(f2,'Nghiem thu nhat la: ',(-b+sqrt(delta))/(2*a):4:2);

writeln(f2,'Nghiem thu hai la: ',(-b-sqrt(delta))/(2*a):4:2);

end;

close(f1);

close(f2);

end. 

Bình luận (1)
Lợi Nguyễn Minh
Xem chi tiết