Question

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

Hình bên dưới

Answer 1

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.

Answer 2

https://i.imgur.com/CxuAuCx.jpg