Nè :>

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.