Free Pascal

[angleofdarkness]

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

1/

Một ngày, Tí, Sửu và Dần đi hái nấm. Tí hái được a cây nấm, Sửu hái được b cây nấm còn Dần hái được c cây nấm. Biết rằng số nấm hái được của mỗi người luôn khác nhau.

Yêu cầu: Bạn hãy cho biết tên bạn hái được nhiều nấm nhất?

Dữ liệu: Vào từ thiết bị nhập chuẩn gồm 1 dòng ghi ba số a, b, c ( $0 \leq a, b, c \leq 10^{18}$ ) và a ≠b ≠c tương ứng là số nấm của Tí, Sửu và Dần.

Kết quả: ghi ra màn hình TI, SUU hoặc DAN là tên bạn hái được nhiều nấm nhất.

var F:text;
    a,b,c:longint;
begin
     assign(F,'Hainam.inp');reset(F);
     read(F,a,b,c);
     if max<a then max:=a;
     if max<b then max:=b;
     if max<c then max:=c;
     if max=a then write('Ti hai duoc nhieu nhat')
        else if max=b then write('Suu hai duoc nhieu nhat')
             else if max=c then write('Dan hai duoc nhieu nhat');
     readln;
     close(F);
end.