Câu 3 :
uses crt;
var a, b, x, y : real;
begin
clrscr;
write('Nhap tong hai so : '); readln(a);
write('Nhap ti so hai so : '); readln(b);
y := a / (b + 1);
x := a - y;
writeln('So thu nhat : ', x : 3 : 0);
writeln('So thu hai : ', y : 3 : 0);
readln
end.
Câu 2 :
uses crt;
var a, b, x, y : real;
begin
clrscr;
write('Nhap so hoc sinh cua lop : '); readln(a);
write('nhap so hoc sinh nam nhieu hon nu : '); readln(b);
y := -(b - a) / 2;
x := a - y;
writeln('So hoc sinh nu : ', y : 2 : 0);
writeln('So hoc sinh nam : ', x : 2 : 0);
readln
end.
Câu 3 :
uses crt;
var x, y : integer;
begin
clrscr;
write('Nhap hai so x, y : '); readln(x, y);
x := x + y;
y := y - x;
x := y - x;
write('x = ', x ,',y = ', y);
readln
end.
