Những câu hỏi liên quan
Chí Nguyễn
Xem chi tiết
Bùi Anh Tuấn
14 tháng 3 2021 lúc 20:53

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

Program HOC24;

const fi='INPUTC2.TXT'

var s,r: real;

f: text;

procedure ip;

begin 

assign(f,fi);

reset(f);

read(f,r);

s:=r*r*pi;

close(f);

end;

begin

ip;

write('S= ',s:1:2);

readln

end.

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

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)
Lò chí Quyền
Xem chi tiết
Kiều Vũ Linh
7 tháng 5 2023 lúc 12:35

Var cd,cr,cv,dt:real;

Begin

Write('Chieu dai = ');readln(cd);

Write('Chieu rong = ');readln(cr);

cv:=(cd+cr)*2;

dt:=cd*cr;

Writeln('Chu vi la ',cv:10:2);

Write('Dien tich la ',dt:10:2);

Readln

End.

Bình luận (0)
My Nguyen
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
28 tháng 7 2018 lúc 9:53

Bình luận (0)
Thương Thương
Xem chi tiết
Đoàn Xuân Sơn
10 tháng 3 2022 lúc 1:04

const fi='nhap.txt'

uses crt;

var

f:text;

b:byte;

a:longint;

begin

clrscr;

assign(f,f1);

reset(f);

read(f,a,b);

close(f);

a:=exp(b*ln(a));

write('ket qua la: ',a);

readln;

end.

Bình luận (0)
Linh Hà
Xem chi tiết
Nguyên Khôi
2 tháng 11 2021 lúc 17:55

uses crt;

var

a,b,p,s:integer;

begin

readln(a,b);

p:=(a+b)*2;

s:=a*b;

writeln('Chu vi va dien tich cua hcn lan luot la: ',p,s);

readln

end.

Bình luận (0)
Bùi Trần Nghĩa Hưng
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 10 2021 lúc 0:17

Câu 1: 

#include <bits/stdc++.h>

using namespace std;

double a,b,c;

int main()

{

cin>>a>>b>>c;

cout<<fixed<<setprecision(2)<<(a+b+c)/3;

return 0;

}

Bình luận (0)