Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Kiệt Bùi
Xem chi tiết
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.

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.

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.

Tuong Le
Xem chi tiết
Nguyễn Lê Phước Thịnh
16 tháng 12 2020 lúc 22:41

const fo='int.txt'

fo='out.txt'

var f1,f2:text;

m,n:integer;

begin

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

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

readln(f1,m);

readln(f1,n);

writeln(f2,m+n);

close(f1);

close(f2);

end.

Lê Đức Tài
Xem chi tiết
Nguyễn Lê Phước Thịnh
16 tháng 3 2022 lúc 14:06

#include <bits/stdc++.h>

using namespace std;

long long i,a[100],n;

int main()

{

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

n=20;

for (i=1; i<=n; i++) cin>>a[i];

for (i=1; i<=n; i++) cout<<a[i]<<" ";

return 0;

}

Duyvvv
Xem chi tiết
Nguyễn Lê Phước Thịnh
17 tháng 5 2021 lúc 9:42

uses crt;

const fi='dulieu.txt'

var f1:text;

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

i,n:integer;

begin

clrscr;

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

n:=0;

while not eof(f1) do 

begin

inc(n);

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

end;

for i:=1 to n do 

begin

  if a[i]<b[i] then writeln(a[i])

else writeln(b[i]);

end;

readln;

end.

Nguyễn Nhật Bình
Xem chi tiết
Lê Thị Hồng Trang
Xem chi tiết
Nguyễn Lê Phước Thịnh
31 tháng 3 2022 lúc 22:46

uses crt;

const fi='so.inp'

var f1:text;

a,b:integer;

begin

clrscr;

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

while not eof(f1) do 

 begin

readln(f1,a,b);

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

end;

close(f1);

readln;

end.