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.
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.
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.
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.
b) sẽ trờ thành bảng nhân N:có các nhân tử từ 1 đến 100
c)
Nhân từ 10 đến 100
1. Program Bai11;
2. ....Uses.... crt;
3. ...Var..... a,b,H:integer;
4. ....Const.... c=12;
5.Begin
6. Clrscr;
7. write('nhap a='); Readln(a);
8. write('nhap b='); ......Readln.....(b);
9. H:=a*a+b*b+c;
10. Readln;
11. Writeln('H=',H);
12. ....End....