Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Hoàng Anh Thái
Xem chi tiết
Nguyễn Thanh Vân
29 tháng 3 2022 lúc 16:28

theo tui là D

 

Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
5 tháng 5 2018 lúc 17:17

Đáp án B

trần thị thanh dung
Xem chi tiết
Khôi Nguyênx
3 tháng 1 2022 lúc 18:52

đáp án 

1.a

2.c 

3.d

4.b

vũ minh nhật
3 tháng 1 2022 lúc 18:55

1.a

2.c 

3.d

4.b

vũ phong
9 tháng 11 2022 lúc 20:10

1.a

2.c 

3.d

4.b

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.

khanh vo
Xem chi tiết
datcoder
9 tháng 11 2023 lúc 21:05

D. Không có câu nào sai

Hoàng Ngọc Hoàng
13 tháng 11 2023 lúc 20:45

D. Không có câu nào sai

Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
24 tháng 1 2017 lúc 13:49

Đáp án B

Lưu Hương Ly
Xem chi tiết
Nguyễn Lê Phước Thịnh
1 tháng 3 2021 lúc 17:16

uses crt;

const fi='input.txt'

var f1:text;

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

    i,n:integer;

begin

clrscr;

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

n:=0;

while not eof(f1) do

  begin

     n:=n+1;

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

  end;

for i:=1 to n do

  writeln('Tong cua dong ',i,' la: ',a[i]+b[i]+c[i]:4:2);

for i:=1 to n do

  writeln('Trung binh cong cua dong ',i,' la: ',(a[i]+b[i]+c[i])/3:4:2);

close(f1);

readln;

end.

khanh vo
Xem chi tiết
datcoder
10 tháng 11 2023 lúc 14:56

Câu 18. Trong các câu sau, câu nào đúng?

A. Đuôi tên tệp là viết tắt của tên phần mềm đã tạo ra tệp đó

B. Đuôi tên tệp xác định loại tệp, từ đó hệ điều hành biết các phần mềm nào có thể mở tệp

C. Không thể thay đổi đuôi tên tệp

D. Không có câu nào sai

Quỳnh Như
Xem chi tiết
Nguyễn Lê Phước Thịnh
10 tháng 5 2022 lúc 23:21

uses crt;

const fi='songuyen.inp'

fo='songuyen2.out'

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

i,n,t1:integer;

f1,f2:text;

begin

clrscr;

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

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

readln(f1,n);

for i:=1 to n do readln(f1,a[i]);

t1:=0;

for i:=1 to n do if a[i] mod 2<>0 then t1:=t1+a[i];

writeln(t1);

writeln(f2,t1);

for i:=1 to n do 

  if a[i] mod 2<>0 then write(a[i]:4);

close(f1);

close(f2);

readln;

end.

Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
5 tháng 1 2017 lúc 7:07

Đáp án A