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 |
nhap a,b gop lam 1 dc nhe
program Tich;
uses crt;
var a:b,Tich; integer;
begin
clrscr;
Write('nhap a va b='); readln(a,b);
Tich:a*b;
Writeln('tich cua a va b la:', Tich:1:0);
Readln;
end.
Tên chương trình: có dấu cách, sửa: tinh_tong;
Khai báo biến sai cấu trúc, sửa : thay := thành :
Lệnh gán biến tong sai, sửa : tong:=a+b;
End thiếu chấm, sửa : end.
- program: có dấu cách
sửa: program tinh_tong;
- var: a, b, tong là các số khai báo kiểu nên không được dùng dấu gán
sửa: var a, b, tong : integer;
- phần begin: sai phần "tong = a+b", tổng phải được gán giá trị
sửa: tong := a+b;
- kết thúc chương trình: end viết thiếu
sửa: end.
program tong hai so;
uses crt;
var a,b,c:integer;
begin
clrscr;
write('nhap gia tri a);readln(a);
write('nhap so b'); readln(b);
c:=a+b;
writeln(tong cua hai so vua nhap la:',c);
readln;
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.
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.