LT
1
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
8 tháng 2 2022
Câu 1:
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
writeln((a+b)/2:4:2);
readln;
end.
RV
24 tháng 8
Em cảm ơn cô nhiều ạ! Em xin chúc cô luôn mạnh khỏe, bình an và có nhiều niềm vui trong công việc và cuộc sống.
NT
Nguyễn Thị Thương Hoài
Giáo viên
VIP
24 tháng 8
Olm chào em, tất cả những điều em nói trên đây đều rất đúng và chính xác. Vì vậy xin phép em cô bật câu này lên chế độ câu hỏi hay để tất cả các thành viên thấy và hiểu rõ không bị kẻ xấu mạo danh cô Hoài lấy xu đi nữa. Ngoài ra vì bài viết này của em chứa nhiều thông tin bổ ích và cực kỳ chính xác nên cô sẽ thưởng em 100 xu
!!!
11 tháng 11 2019
uses crt;
var n:longint;
giam:real;
begin
clrscr;
write('nhap so tien:'); readln(n);
if n<500000 then writeln('so tien ma ban mua la: ',n);
if (n>=500000) and (n<=1000000) then
begin
giam:=n-(n*15/100)+(n*10/100);
writeln('so tien ban mua sau khi giam 15% va chiu 10% thue la: ',giam:4:2);
end;
if n>1000000 then
begin
giam:=n-(n*20/100)+(n*10/100);
writeln('so tien ban mua sau khi giam 20% va chiu 10% thue la: ',giam:4:2);
end;
readln;
end.
NT
23 tháng 10 2017
uses crt;
const tb=30000;
var tt, dg, sp: real;
ht, dc: string;
begin
clrscr;
write('Nhap ho ten khach hang: ');
readln(ht);
write('Nhap dia chi khach hang: ');
readln(dc);
write('Nhap don gia: ');
readln(dg);
write('Nhap so phut su dung: ');
readln(sp);
tt:=dg*sp+tb;
write('Quy khach phai tra: ',tt,' dong.');
readln
end.
Chúc em học tốt!
tùy ý kiến và suy nghĩ