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
Nguyen Hong Anh
Xem chi tiết
Nguyễn Lê Phước Thịnh
17 tháng 3 2021 lúc 21:40

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.

Nhật Quỳnh
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 4 2021 lúc 9:27

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.

Nguyễn Văn Hùng
Xem chi tiết
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.

Đỗ 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.

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;

}

Tuấn
Xem chi tiết
Nguyễn Lê Phước Thịnh
9 tháng 3 2023 lúc 14:53

uses crt;

const fi='canh_ht.int'

var f1:text;

a,b,h,c,d:integer;

begin

clrscr;

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

readln(f1,a,b,c,d,h);

writeln(a+b+c+d);

writeln(1/2*h*(a+b):4:2);

close(f1);

readln;

end.

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.

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.