Những câu hỏi liên quan
Lê Thị Ngọc Anh
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 2 2021 lúc 13:02

uses crt;

const fi='baitap.txt'

var f1:text;

a,b:integer;

begin

clrscr;

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

readln(f1,a,b);

writeln('Chu vi hinh chu nhat la: ',(a+b)*2);

close(f1);

readln;

end.

Bình luận (0)
Nguyễn huy kiên
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 2 2021 lúc 13:51

uses crt;

const fi='baitap.txt'

var f1:text;

a,b:integer;

begin

clrscr;

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

readln(f1,a,b);

writeln('Chu vi la: ',(a+b)*2);

writeln('Dien tich la: ',a*b);

close(f1);

readln;

end.

Bình luận (0)
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)
Ngọc Hồng
Xem chi tiết
Nguyễn Lê Phước Thịnh
17 tháng 3 2022 lúc 14:48

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

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

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

cin>>a>>b;

cout<<a*b;

return 0;

}

Bình luận (0)
Hằng Dương Thanh
Xem chi tiết
Nguyễn Lê Phước Thịnh
25 tháng 2 2021 lúc 17:30

uses crt;

const fi='hcn.dat'

fo='chuvi.out'

var f1,f2:text;

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

n,i,j:integer;

begin

clrscr;

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

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

n:=0;

while not eof(f1) do

begin

n:=n+1;

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

end;

for i:=1 to n do

writeln(a[i]*b[i]);

for i:=1 to n do 

  writeln(f2,2*(a[i]+b[i]));

close(f1);

close(f2);

readln;

end.

Bình luận (0)
Namn
Xem chi tiết
Nguyễn Lê Phước Thịnh
9 tháng 3 2023 lúc 14:42

#include <bits/stdc++.h>

using namespace std;

int main()

{

int a,b;

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

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

cin>>a>>b;

cout<<(a+b)*2<<endl;

cout<<a*b;

return 0;

}

Bình luận (0)
Minh Hoạt
Xem chi tiết
Nguyễn Lê Phước Thịnh
23 tháng 4 2021 lúc 20:54

Câu 1: 

uses crt;

const fi='bai1.inp'

var f1:text;

a,b:real;

begin

clrscr;

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

readln(f1,a,b);

writeln(a*b:4:2);

close(f1);

readln;

end.

Bình luận (0)
Nguyễn Lê Phước Thịnh
23 tháng 4 2021 lúc 20:57

Câu 2: 

const fi='bai2.inp'

fo='bai2.out'

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:4:2);

close(f1);

close(f2);

end.

Bình luận (0)
Nguyễn Lê Phước Thịnh
23 tháng 4 2021 lúc 20:57

Câu 3: 

const fi='bai3.inp'

fo='bai3.out'

var f1,f2:text;

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

i,n:integer;

begin

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

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

n:=0;

while not eof(f1) do 

  begin

n:=n+1;

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

end;

for i:=1 to n do  

  writeln(f2,a[i]*b[i]:4:2);

close(f1);

close(f2);

end.

Bình luận (0)
Nguyễn Thanh
Xem chi tiết
Nguyễn Lê Phước Thịnh
6 tháng 2 2021 lúc 22:05

const fi='hcn.inp'     

fo='hcn.out'

var f1,f2:text;   

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

i,j,n:integer;

begin

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

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

n:=0;

while not eof(f1) do 

begin     

inc(n);     

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

end;

for i:=1 to n do 

writeln(f2,2*(a[i]+b[i]),' ',a[i]*b[i]);

close(f1);

close(f2);

end.

Bình luận (0)
Đỗ Huyền
Xem chi tiết
Nguyễn Lê Phước Thịnh
9 tháng 2 2021 lúc 13:32

const fi='hcn.inp'     

fo='hcn.out'

var f1,f2:text;   

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

i,j,n:integer;

begin

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

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

n:=0;

while not eof(f1) do 

begin     

inc(n);     

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

end;

for i:=1 to n do 

writeln(f2,2*(a[i]+b[i]),' ',a[i]*b[i]);

close(f1);

close(f2);

end.

Bình luận (0)