Đêyyy :>

Câu 3 :

- Thuật toán :

+ Bước 1 : nhập số a, b

+ Bước 2 : y ← a / (b + 1);

+ Bước 3 : x ← a - y;

+ Bước 4 : đưa ra giá trị x và y

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

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 :

- Thuật toán :

+ Bước 1 : nhập a, b

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

+ Bước 3 : x ← a - y

+ Bước 4 : đưa ra x và y rồi kết thúc

- Chương trình :

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 :

- Thuật toán :

+ Bước 1 : nhập x, y

+ Bước 2 : x ← x + y

+ Bước 3 : y ← y - x

+ Bước 4 : x ← y - x

+ Đưa ra giá trị x và y rồi kết thúc

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

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.