Question

cho tệp văn bản baitap.inp gồm 3 dòng

dòng 1 hiện số a.b

dòng 2 hiện số c

dòng 3 hiện số d

yêu cầu : đọc a,b,c,d từ tệp và đưa ra màn hình số lớn nhất

 

Answer 1

uses crt;

const fi='baitap.inp'

var f1:text;

a,b,c,d,ln:integer;

begin

clrscr;

assign(f1,fi); reset(f1);

readln(f1,a,b);

readln(f1,c);

readln(f1,d);

ln:=a;

if ln<b then ln:=b;

if ln<c then ln:=c;

if ln<d then ln:=d;

writeln(ln);

close(f1);

readln;

end.