Var sxq,v,d,r,c:real;

Begin

Write('Chieu dai = ');readln(d);

Write('Chieu rong = ');readln(r);

Write('Chieu cao = ');readln(c);

sxq:=2*(d+r)*c;

v:=d*r*c;

Writeln('Dien tich xung quanh la ',sxq:10:2);

Write('The tich la ',v:10:2);

Readln

End.

* Công thức :

- Diện tích xung quanh hình hộp chữ nhật: 

Trong đó:

+  là nửa chu vi đáy.

+  là chiều cao.

- Thể tích hình hộp chữ nhật: 

Trong đó:

+  là diện tích đáy.

+  là chiều cao.

Mã số;

p = float(input('p = '))
S = float(input('S = '))
h = float(input('h = '))
Sxq = 2 * p * h
V = S * h
print(Sxq, V)

A:=5 sai vì A là biến mảng có nhiều phần tử

Ta chỉ có thể gán giá trị cho từng phần tử của mảng

Var sxq,v,d,r,c:real;

Begin

Write('Chieu dai = ');readln(d);

Write('Chieu rong = ');readln(r);

Write('Chieu cao = ');readln(c);

sxq:=2*(d+r)*c;

v:=d*r*c;

Writeln('Dien tich xung quanh la ',sxq:10:2);

Write('The tich la ',v:10:2);

Readln

End.

var i,n,s:longint;

begin 

read(n); if n<2 then break;

for i:=3 to n do s:=s+i;

write(s);

end.

Var i,n:integer;

t:longint;

Begin

Write('n = ');readln(n);

i:=2;

While i<=n do

Begin

t:=t+i;

i:=i+1;

End;

Write('Tong la ',t);

Readln

End.

Var sxq,v,d,r,c:real;

Begin

Write('Chieu dai = ');readln(d);

Write('Chieu rong = ');readln(r);

Write('Chieu cao = ');readln(c);

sxq:=2*(d+r)*c;

v:=d*r*c;

Writeln('Dien tich xung quanh la ',sxq:10:2);

Write('The tich la ',v:10:2);

Readln

End.

Program HOC24;

var i,n: integer;

t: longint;

f1,f2: text;

begin

assign(f1,'BAI1.INP');

reset(f1);

read(f1,n);

t:=0;

for i:=1 to n do if i mod 2=0 then t:=t+i;

close(f1);

assign(f2,'BAI1.OUT');

rewrite(f2);

write(f2,t);

close(f2);

end.

Var i,n:integer;

Begin

Write('n = ');readln(n);

Write('Day so tu 1 den ',n,' la ');

For i:=1 to n do write(i:8);

Readln

End.

Viết chương trình nhập từ bàn phím 1 số nguyên N bất kỳ kiểm tra xem số đó có chia hết cho 5 hay không in thông báo ra màn hình