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
Phạm Đức Trí
Xem chi tiết
ĐINH THỊ HOÀNG ANH
24 tháng 12 2021 lúc 14:14

C

Nguyễn Duy Khang
24 tháng 12 2021 lúc 19:58

c

dang chung
24 tháng 12 2021 lúc 20:40

C

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

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

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.

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

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

An Đinh
Xem chi tiết
Minh Lệ
19 tháng 3 2023 lúc 22:52

Program HOC24;

var i,n: integer;

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

t: longint;

f1,f2: text;

const fi='DATA1.TXT'

fo='KQ1.TXT'

begin

assign(f1,fi);

assign(f2,fo);

reset(f1);

rewrite(f2);

readln(f1,n);

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

t:=0;

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

writeln(f2,t);

for i:=1 to n do if a[i] mod 5=0 then write(f2,a[i],' ');

close(f1); close(f2);

end.

Huyennnn
Xem chi tiết
Trân Nguyễn
22 tháng 12 2016 lúc 19:45

Tệp tin có 2 phần gồm phần tên và phần mở rộng được viết cách nhau bằng dấu chấm (.)

VD -Baitap.doc