

Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
b.
program ct;
uses crt;
var x:Qword;
a:real;
begin
clrscr;
writeln('Nhap so tien 1 thang bo Phan phai chi den mua xang la (VNĐ): '); readln(x);
a:=x/175000;
writeln('So tien bo Phan phai chi them khi gia xang tang la ',a*190000-x:5:0,'đ');
readln;
end.
a.
(Hình nhé!!!)
___________________
10 điểm!!!
Hãy giúp mọi người biết câu trả lời này thế nào?
a) Thuật toán:
B1: Nhập x.
B2: Xuất ra theo dạng kết quả của biểu thức (x/17500)*19000-x.
B3: Kết thúc.
b) Chương trình:
uses crt;
var x:longint;
begin
clrscr;
write('Nhap x: ');readln(x);
writeln('So tien can phai chi them: ',(x/17500)*19000-x:0:2,' dong');
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin