Bài tập pascal cần các mem giúp

[kelvin9xlaa]

[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.

Bài 1:Viết 2 hàm tìm Max,min của 3 số thực
Bài 2:Viết hàm PERFECT(nord):Boolean;để kiểm tra số nguyên n có phải là số hoàn thiện hay không?

 

[huutoan00]

bài 1:

function max(a,b,c:real):real;
begin
 max:=a;
 if b>max then max:=b;
 if c>max then max:=c;
end;

function min(a,b,c:real):real;
begin
 min:=a;
 if b<min then min:= b;
 if c< min then min:=c;
end;

bài 2:

function perfect(n:word)boolean;
begin
 s:=0; perfect:=false;
 for i:=1 to n do if n mod i =0 then s:=s+i;
 if s=2*n then perfect:= true;
end;