Lập trình đơn giản

Kamato Heiji

Giúp mình với các bạn , anh @Nguyễn Lê Phước Thịnh

Hình bên dưới

Nguyễn Lê Phước Thịnh
21 tháng 10 2020 lúc 19:18

a)

const fo='bt4_20.pas';
var f:text;
a,b,c,s,xx:longint;
begin
assign(f,fo); rewrite(f);
a:=30000;
b:=a*2;
c:=b-10000;
s:=a+b+c;
xx:=9500;
writeln(f,s div xx);
close(f);
end.

b)

const fo='bt4_20c2.pas';
var f:text;
a,b,c,s,xx:longint;
begin
assign(f,fo); rewrite(f);
a:=30000;
b:=a*2;
c:=b-10000;
s:=a+b+c;
xx:=9500;
writeln(f,s/xx:4:0);
close(f);
end.

Bình luận (2)
 Khách vãng lai đã xóa
Kamato Heiji
21 tháng 10 2020 lúc 17:20
https://i.imgur.com/CxuAuCx.jpg
Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
Specialist IT
Xem chi tiết
Phạm Băng Nguyệt
Xem chi tiết
Phạm Băng Nguyệt
Xem chi tiết
yumi
Xem chi tiết
Thùy Mai
Xem chi tiết
Xem chi tiết
ngutinhoc
Xem chi tiết
Thanh Tâm
Xem chi tiết