viết chương trình pascal tách một số n thành 2 số a,b sao cho tích p=a*b^2 đạt cực đại với n được nhập từ bàn phím
1 câu trả lời
uses crt;
var a,i,max: integer;
maxa, maxb: integer;
begin
clrscr;
write('Nhap n: ');
readln(a);
for i:=1 to a-1 do (*a*)
if max < i * (a-i)*(a-i) then
begin
max := i * (a-i)*(a-i);
maxa:= i;
maxb:= a-i;
end;
write('Ket qua: a = ',maxa,'; b= ',maxb,'. ');
readln
end.
Câu hỏi trong lớp
Xem thêm
