viết trương trình nhập vào a,b rồi tính y=15x^2+x+72
a+b/3 nếu a { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " viết trương trình nhập vào a,b rồi tính y=15x^2+x+72 a+b/3 nếu a
program Hello;
uses crt;
var a,b:integer;
var x,y:real;
begin
clrscr;
writeln (‘Nhap hai so nguyen a: ‘);
readln(a);
writeln (‘Nhap hai so nguyen b: ‘);
readln(b);
if a<b then x:=(a+b)/3;
if a=b then x:=15*172;
if a>b then x:=(a-b)/(a*a+b*b);
y:=15*x*x+x+72;
writeln(‘gia tri cua y la: ‘, y);
end.
Học tốt nha!
uses crt;
var a,b: integer;
begin
clrscr;
write (‘nhap a: ‘); readln (a);
write (‘nhap b: ‘); readln (b);
write (‘y= ‘,15*sqr(x)+x+72);
if a>b then writeln (‘x= ‘,15*172)
else if a=b then writeln (‘x= ‘,(a-(b/(sqr(a)))+sqr(b)):1:2);
readln;
end.