Câu 1 :
a) (a+b)*(a+b) - x/y
b) b/a*a+b
c) a*a/2*a+b
Câu 2:
program Bai_2;
uses crt;
var a,b,s,p: real;
begin
clrscr;
writeln('Nhap chieu dai va chieu rong cua hcn'); readln(a,b);
p:= (a+b)*2;
s:= a*b;
writeln(' Chu vi hcn la:', p);
writeln(' dien tich hcn la:', s);
readln
end.
Câu 3:
program Bai_3;
uses crt;
var n: real (integer với số nguyên dương);
begin
writeln('Nhap so n'); readln(n);
if n mod 2=0 then write('Day la so chan") else
write('Day la so le');
readln
end.