Những câu hỏi liên quan
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)
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 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)
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)
Nguyen Duc Anh
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 5 2021 lúc 13:42

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.

Bình luận (0)
Nguyễn Văn Hùng
Xem chi tiết
Phan Thùy Chi
Xem chi tiết
Nguyễn Lê Phước Thịnh
19 tháng 12 2021 lúc 23:52

3:

#include <bits/stdc++.h>

using namespace std;

double x,y,z;

int main()

{

cin>>x>>y>>z;

cout<<x+y+z<<endl;

cout<<x*y*z;

return 0;

}

Bình luận (0)
Chí Nguyễn
Xem chi tiết
Bùi Anh Tuấn
14 tháng 3 2021 lúc 20:59

Bình luận (1)
Minh Lệ
15 tháng 3 2021 lúc 18:55

Program HOC24;

const fi='INPUTC2.TXT'

var s: longint;

a,b: integer;

f: text;

procedure ip;

begin 

assign(f,fi);

reset(f);

read(f,a,b);

s:=a*b;

close(f);

end;

begin

ip;

write('S= ',s);

readln

end.

Bình luận (0)