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.
program baitap;
uses crt;
var thanhtien:real;
begin
clrscr;
write (' So tien khach da mua la: '); readln (thanhtien);
if thanhtien>=100000 then thanhtien := (70*thanhtien/100)
else thanh tien := (90*thanhtien/100);
writeln (' So tien khach phai tra la: ',thanhtien:4:2);
readln;
end.
Tham khảo:
program gia_tri_tuong_ung;
uses crt;
var x,y,z:integer;
begin
clrscr;
write("Nhap x=");readln(x);
write("Nhap y=");readln(y);
writeln('Hai so nguyen truoc khi hoan doi');
writeln('a=',a);
writeln('b=',b);
z:=x;
x:=y;
y:=z;
writeln('Hai so nguyen sau khi hoan doi');
writeln('a=',a);
writeln('b=',b);
readln;
end.
program Tinh_tien;
uses crt
var a,b:integer;
T:real;
begin
clrscr;
writeln('Nhap don gia:',a);readln(a);
writeln('Nhap so luong:',b);readln(b);
T:=a*b;
if T>=100000 then T:=T*0.7 else T:=T*0.9
writeln('So tien phai tra:',T);
readln
end.
program Tinh_tien;
uses crt
var a,b:integer;
T:real;
begin
clrscr;
writeln('Nhap don gia:',a);readln(a);
writeln('Nhap so luong:',b);readln(b);
T:=a*b;
if T>=100000 then T:=T*0.7 else T:=T*0.9
writeln('So tien phai tra:',T);
readln
end.
Cú pháp của câu lệnh điều kiện:
if <điều kiện> do <câu lệnh 1>
else <câu lệnh 2>;
Cú pháp của câu lệnh lặp với số lần chưa biết trước:
While <điều kiện> do
<câu lệnh>;