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.
soluong: Biến
Dongia: Biến
thanhtien: Biến
phi: Hằng
Tinh_tien: Không phải hằng hoặc biến
|
|
Hằng |
Biến |
Không phải hằng hoặc biến |
|
soluong |
|
x |
|
|
Dongia |
|
x |
|
|
thanhtien |
|
x |
|
|
phi |
x |
|
|
|
10000 |
|
|
x |
|
Tinh_tien |
|
|
x |
1. Program Tinh tien;
2. Uses crt
3. Var soluong,dongia,Tienthanhtoan:=integer;
4. Const Phi=1000;
5. Begin
6. Clrscr;
7. write('nhap so luong:');readln(soluong);
8. write('nhap don gia:');readln(dongia);
9. Tienthanhtoan:= soluong*dongia+phi;
10. writeln('So tien quy khach phai thanh toan la:',Tienthanhtoan);
11. Readln;
12. End.
1. Program Tinh_tien;
2. Uses crt;
3. Var soluong,dongia,Tienthanhtoan:=integer;
4. Const Phi=1000;
5. Begin
6. Clrscr;
7. write('nhap so luong:');readln(soluong);
8. write('nhap don gia:');readln(dongia);
9. Tienthanhtoan:= soluong*dongia+phi;
10. writeln('So tien quy khach phai thanh toan la:',Tienthanhtoan);
11. readln;
12. end.
Biến: Kiểu nguyên, kiểu thực, kiểu mảng,kiểu chuỗi
Hằng: hằng nguyên, hằng logic, hằng thực
A)
program Tinh_toan;
uses crt;
var x,y: integer;
tb: real;
thongbao: string;
const a = 2;
begin
clrscr;
thongbao:= 'Trung binh cong cua hai so x va y la: ';
write('Nhap gia tri cho x= ');readln(x);
write('Nhap gia tri cho y= ');readln(y);
tb:= (x + y) / a;
writeln(thongbao, tb:2:1);
readln
end.
B)
- Các tên biến là: x, y, tb, thongbao
_ Tên hằng là: a