[Box Tin] Bài tập năng khiếu Tin học

[saklovesyao]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Em có một nhỏ bạn, học lớp năng khiếu tin học. Bạn ấy bắt đầu học Pascal, nhưng chương trình cao quá, bạn ấy không làm được. Hôm nay bạn ấy có hỏi em 1 bài (mà em thì không biết pascal), nên em đăng bài lên đây, mong mọi người giúp đỡ ạ

Viết chương trình 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

Cảm ơn mọi người rất nhiều

 

[11thanhkhoeo]

N/2 nếu n chẵn

n lẻ thì n div 2 và n div 2 + 1

uses crt;
var n: integer; 
begin 
write(' nhap n ');
readln(n);
if n mod 2 = 0 then 
      p:= ((n div 2)*(n div 2) /2)
   else 
       p:= ((n div 2)*(n div 2 +1) /2);
   write ('p=' ,p );
readln
end.

Chúc cô em học tốt
Thân

 

[i_am_challenger]

N/2 nếu n chẵn

n lẻ thì n div 2 và n div 2 + 1

uses crt;
var n: integer; 
begin 
write(' nhap n ');
readln(n);
if n mod 2 = 0 then 
      p:= ((n div 2)*(n div 2) /2)
   else 
       p:= ((n div 2)*(n div 2 +1) /2);
   write ('p=' ,p );
readln
end.

Chúc cô em học tốt
Thân

Thiếu khai báo biến p rồi anh ơi!
Mà với lại yêu cầu là tách hai số a và b nhưng tại sao anh chỉ thông báo kết quả là p chứ???