Những câu hỏi liên quan
Lê Thị Thanh
Xem chi tiết
Minh Lệ
10 tháng 5 2023 lúc 19:24

Program HOC24;

var f: text;

p,q: integer;

const fi='DULIEU.INP'

fo='KETQUA.OUT'

function dt(a,b: integer): longint;

var t: longint;

begin

t:=a*b;

dt:=t;

end;

function cv(a,b: integer): longint;

var t: longint;

begin

t:=(a+b)*2;

cv:=t;

end;

procedure ip;

begin

assign(f,fi);

reset(f);

read(f,p,q);

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

writeln(f,'Chu vi hinh chu nhat la: ',cv(p,q));

write(f,'Dien tich hinh chu nhat la: ',dt(p,q));

close(f);

end;

begin

ip; out;

end.

Bình luận (0)
Lê Thị Thanh
Xem chi tiết
Phía sau một cô gái
10 tháng 5 2023 lúc 19:33

with open('DULIEU.INP', 'r') as input_file:

       p, q = map(int, input_file.readline().strip().split())

chu_vi = 2 * (p + q)

dien_tich = p * q

with open('KETQUA.OUT', 'w') as output_file:

       output_file.write(f'Chu vi hinh chu nhat la: {chu_vi}\n')

       output_file.write(f'Dien tich hinh chu nhat la: {dien_tich}\n')

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)
Nguyễn Văn Hùng
Xem chi tiết
Nguyễn Bình Thiên
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.

Bình luận (0)
Minh Uzumaki
Xem chi tiết
Nguyễn Lê Phước Thịnh
10 tháng 5 2022 lúc 23:08

#include <bits/stdc++.h>

using namespace std;

long long m,n,t,i;

int main()

{

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

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

cin>>m>>n;

t=0;

for (i=m; i<=n; i++)

if (i%2!=0) t+=i;

cout<<t;

return 0;

}

Bình luận (0)
Trần Văn Tuân
Xem chi tiết
Nguyễn Lê Phước Thịnh
14 tháng 4 2022 lúc 22:10

const fi='hinhtron.inp'

fo='hinhtron.out'

var f1,f2:text;

a: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;

read(f1,a[n]);

end;

for i:=1 to n do 

writeln(f2,'Hinh tron thu ',i,': Chu vi la ',(2*a[n]*pi):4:2,' va Dien tich la: ',a[n]*a[n]*pi:4:2);

close(f1);

close(f2);

end.

Bình luận (0)
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)