Bài 1: viết chương trình nhập vào 2 số nguyên x,y.Tính và in ra màn hình kết quả của phép tính + x^2+y^2 + 2xy+15x Bài 2: viết chương trình nhập vào 2 số nguyên a,b.Kiểm tra số nguyên nào lớn hơn trong 2 số đó.Sau đó tìm thương số lớn và số bé

Chúc bạn làm đc

Bài 1:

uses crt;

var x,y :integer;

begin

write('Nhap x: '); readln(x);

write('Nhap y: '); readln(y);

clrscr;

write('x^2 + y^2 = ', x*x + y*y);

write('2xy + 15x = ',2*x*y+15*x);

readln;

end.

Bài 2:

uses crt;

var a,b:integer;

begin

write('Nhap a: '); readln(a);

write('Nhap b: '); readln(b);

if a>b then 

begin

max:=a;

min:=b;

end

else

begin

max:=b;

min:=a;

end;

clrscr;

writeln('So lon nhat la: ',max)';

write('Thuong so lon va so be la: ',max div min);

readln;

end.