Những câu hỏi liên quan
Minh Lệ
Xem chi tiết

Tất cả đều đúng

Lê Thị Hồng Trang
Xem chi tiết
Nguyễn Lê Phước Thịnh
31 tháng 3 2022 lúc 22:46

uses crt;

const fi='so.inp'

var f1:text;

a,b:integer;

begin

clrscr;

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

while not eof(f1) do 

 begin

readln(f1,a,b);

writeln((a+b)/2:4:2);

end;

close(f1);

readln;

end.

Nguyễn Đức Anh
Xem chi tiết
Nguyễn Lê Phước Thịnh
27 tháng 10 2021 lúc 15:15

Biến: Kiểu nguyên, kiểu thực, kiểu mảng,kiểu chuỗi

Hằng: hằng nguyên, hằng logic, hằng thực

Nguyễn Phước Hoàng
Xem chi tiết
Yến Chi Phan Nguyễn
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 3 2022 lúc 6:55

uses crt;

const fi='dulieu.dat'

var f1:text;

a,b,p,s: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(a[n],b[n]);

end;

for i:=1 to n do 

  begin

p[i]:=(a[i]+b[i])/2;

s[i]:=a[i]*b[i];

end;

for i:=1 to n do 

  writeln(p[i]:4:2,' ',s[i]:4:2);

close(f1);

readln;

end.

Mai Nguyễn kiều
Xem chi tiết
Minh Lệ
Xem chi tiết
Time line
19 tháng 8 2023 lúc 7:22

Tham khảo:

+ Danh sách tenfES: từ cột Tên của bangDiem

+ Danh sách tenlfon từ hàng tên cột của bangDiem.

+ Mảng hai chiều n - m, mỗi hàng là dãy điểm của một học sinh.

Đóng tập sau khi đọc xong.

Kim Thái
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 11 2021 lúc 23:27

uses crt;

var a,b:int64;

begin

clrscr;

readln(a,b);

writeln(a+b);

readln;

end.

Trinh Trinh
Xem chi tiết
Ngọc Anh Lê
Xem chi tiết
Nguyễn Lê Phước Thịnh
20 tháng 10 2021 lúc 23:59

Xử lí những dữ liệu là điểm ba môn Toán,Văn, Anh

Những kiểu dữ liệu đó phải có kiểu số thực