K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
27 tháng 12 2020
uses crt;
var tien:real;
begin
clrscr;
repeat
write('Nhap so tien:'); readln(tien);
until tien>0;
if tien>=100000 then writeln(tien*70/100:4:2)
else writeln(tien*90/10:4:2);
readln;
end.
28 tháng 12 2020
Dạ cho mình hỏi chỗ này xíu, đoạn "(tien*70/100:4:2)" có chữ 4:2 nghĩa là gì ạ?
CX
23 tháng 11 2021
uses crt;
var tien:real;
begin
clrscr;
repeat
write('Nhap so tien:'); readln(tien);
until tien>0;
if tien>=100000 then writeln(tien*70/100:4:2)
else writeln(tien*90/10:4:2);
readln;
end.
DQ
4 tháng 12 2016
program CT_dautien;
uses crt;
var a:integer;
begin
clrscr;
writeln('moi nhap so a');readln(a);
if a mod 2 = 0 then write(a, 'la so chan') else write(a, 'la so le');
readln
end.
Read(a) {a la so tien khach mua} ;
T := a;
If T\(\ge\)100000 then T := 90%T else T:= 95%T;
Writeln('So tien phai tra la', T)
Sao T lại bằng là 90% và 95%. Đề yêu cầu số tiền phải trả là bao nhiêu mà