Cho tệp INPUT.INP có chứa 3 nguyên tố a,b c. Viết chương trình đọc dữ liệu từ tệp INPUT.INP và ghi vào tệp OUTPUT. OUT số nhỏ nhất của 3 số nguyên này
2 câu trả lời
program nho_nhat;
var f,g:text;
a,b,c,min:integer;
begin
Assign(f,'INPUT.INP'); reset(f);
Assign(g,'OUTPUT.OUT'); rewrite(g);
readln(f,a,b,c);
min:=a;
if b<min then min:=b;
if c<min then min:=a;
write(g,min);
close(f); close(g);
end.
uses crt;
var f:text; a,b,c,min:longint;
begin
clrscr;
assign(f,'INPUT.INP ');reset(f);
readln(f,a,b,c);
close(f);
assign(f,'OUTPUT. OUT');rewrite(f);
min:=a;
if b<min then min:=b;
if c<min then min:=c;
writeln(f,min);
close(f);
end.
