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é
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é
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.
Chúc bạn làm đc