Những câu hỏi liên quan
Ka Ka
Xem chi tiết
Nguyễn Lê Phước Thịnh
17 tháng 3 2021 lúc 21:41

const fi='mang.txt'

fo='tong.txt'

var f1,f2:text;

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

n,i,t:integer;

begin

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

assign(f2,fo); rewriteln(f2);

n:=0;

while not eof(f1) do 

  begin

inc(n);

read(f1,a[n]);

end;

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln(f2,t);

close(f1);

close(f2);

end.

Bình luận (0)
Trần Văn Lượng
Xem chi tiết
Nguyễn Lê Phước Thịnh
1 tháng 5 2021 lúc 21:44

uses crt;

var a:array[1..100]of integer;

i,n,max,min:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

  begin

write('A[',i,']='); readln(a[i]);

end;

max:=a[1];

min:=a[1];

for i:=1 to n do 

  begin

if max<a[i] then max:=a[i];

if min>a[i] then min:=a[i];

end;

writeln('So lon nhat la: ',max);

writeln('So nho nhat la: ',min);

readln;

end.

Bình luận (2)
LA VAN CAU
Xem chi tiết
Dương Thị Thu Hiền
Xem chi tiết
Trần Diệu Linh
30 tháng 9 2021 lúc 23:31

1. B

2. A

3.C

4.C

5.B

6.C

7.D

8.D

9.B

10.C

Bình luận (1)
nguyen dao
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 5 2021 lúc 21:09

const fi='vao.inp'

fo='ra.out'

var f1,f2:text;

st:string;

i,d:integer;

begin

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

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

readln(f1,st);

d:=length(st);

for i:=1 to d do 

  if st[i]='a' then delete(st,i,1);

writeln(f2,st);

close(f1);

close(f2);

end.

Bình luận (0)
Trí Minh
Xem chi tiết
Fax Cơ
Xem chi tiết
Minh Lệ
Xem chi tiết
datcoder
14 tháng 10 2023 lúc 21:35

loading...

STT

Bán kính r

Chu vi hình tròn

Diện tích hình tròn

1

1

6.28

3.14

2

5

31.4

78.5

3

6.5

40.82

132.665

Bình luận (0)
Minh Lệ
Xem chi tiết
datcoder
14 tháng 10 2023 lúc 21:34

loading...

 
Bình luận (0)