Question

Viết chương trình từ tệp1.int 3 số

A. Viết ra màn hình số lớn nhất và số nhỏ nhất của 3 số vừa đọc được ở tep1.int

B. Ghi vào tệp2.out giá trị lớn nhất giá trị nhỉ nhất của teep1.int

Answer 1

Program HOC24;

const fi='tep1.int';

fo='tep2.out';

var max,min,a,b,c: integer;

f:text;

procedure ip;

begin

assign(f,fii);

reset(f);

read(f,a,b,c);

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

max:=a; min:=a;

if b>max then max:=b;

if c>max then max:=c;

if b<min then min:=b;

if c<min then min:=c;

writeln(f,'Gia tri lon nhat la : ',max);

write(f,'Gia tri nho nhat la : ',min);

close(f);

end;

begin

ip;

out;

end.