K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

Uses crt;

Const fi='input.txt';

Fo='output.txt';

Var f1,f2:text;

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

I,n:integer;

Begin

Clrscr;

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

  Begin

Writeln('Chu vi hinh chu nhat thu ',i,' la: ',(a[i]+b[i])*2);

Writeln(f2,Chu vi hinh chu nhat thu ',i,' la: ',(a[i]+b[i])*2);

End;

Close(f1);

Close(f2);

Readln;

End.

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.

const fi='hcn.txt';

fo='ketqua.txt';

var f1,f2:text;

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

n:integer;

cv,dt:real;

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 

  begin

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

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

writeln(f2,cv:4:2,' ',dt:4:2);

end;

close(f1);

close(f2);

end.

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.

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.

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.

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.

const fi='bt1.inp';

fo='bt1.out';

var f1,f2:text;

a,b:integer;

begin

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

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

readln(f1,a,b);

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

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

close(f1);

close(f2);

end.

uses crt;

const fi='x.inp';

var f1:text;

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

i,n:integer;

begin

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

n:=0;

while not eof(f1) do 

begin

n:=n+1;

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

end;

for i:=1 to n do 

  begin

writeln('Chu vi dong ',i,' la: ',(a[i]+b[i])*2);

writeln('Dien tich dong ',i,' la: ',a[i]*b[i]);

end;

close(f1);

readln;

end.