var sl,dg,cp:real;

begin

write('Nhap so luong: '); readln(sl);

write('Nhap dom gia: '); readln(dg);

write('Nhap chi phi: '); readln(cp);

write('Doanh thu la: ',sl*dg - cp);

readln;

end.

Câu 1 :

* Viết thuật toán :

- Bước 1 : nhập số lượng a, đơn giá b, chi phí c

- Bước 2 : d ← a * b - c

- Bước 3 : xuất giá trị d

- Bước 4 : kết thúc

* Viết chương trình :

uses crt;

var a, b, c, d : longint;

begin

clrscr;

write('nhap so luong, don giam chi phi : ');

readln(a, b, c);

d := a * b - c;

writeln('doanh thu : ', d);

readln

end.

Câu 2 :

* Viết thuật toán :

- Bước 1 : nhập ba cạnh a, b, c

- Bước 3 : p ← (a + b + c) / 2

- Bước 4 : s ← sqrt(p * (p - a) * (p - b) * (p - c))

- Bước 5 : xuất giá trị s 

- Bước 6 : kết thúc

* Viết chương trình :

uses crt;

var a, b, c, p, s : real;

begin

clrscr;

write('nhap ba canh tam giac : ');readln(a, b, c);

p := (a + b + c) / 2;

s := sqrt(p * (p - a) * (p - b) * (p - c));

writeln('dien tich tam giac : ', s:2:1);

readln

end.