Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Program HOC24;
var f: text;
p,q: integer;
const fi='DULIEU.INP';
fo='KETQUA.OUT';
function dt(a,b: integer): longint;
var t: longint;
begin
t:=a*b;
dt:=t;
end;
function cv(a,b: integer): longint;
var t: longint;
begin
t:=(a+b)*2;
cv:=t;
end;
procedure ip;
begin
assign(f,fi);
reset(f);
read(f,p,q);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
writeln(f,'Chu vi hinh chu nhat la: ',cv(p,q));
write(f,'Dien tich hinh chu nhat la: ',dt(p,q));
close(f);
end;
begin
ip; out;
end.
uses crt;
var a,b,c,nn:integer;
begin
clrscr;
readln(a,b,c);
nn:=a;
if nn>b then nn:=b;
if nn>c then nn:=c;
writeln(nn);
readln;
end.
uses crt;
const fi='kiemtra.txt';
var f1:text;
a:array[1..100]of integer;
min,n,i:integer;
{----------------chuong-trinh-con-------------------}
function nn(x,y:integer):integer;
begin
if x<y then nn:=x
else nn:=y;
end;
{-----------------chuong-trinh-chinh-----------------}
begin
clrscr;
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=nn(a[1],a[2]);
for i:=3 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
Mình xin sửa lại một chút:
uses crt;
const fi='kiemtra.txt';
var f1:text;
a:array[1..100]of integer;
min,n,i:integer;
{----------------chuong-trinh-con-------------------}
function nn(x,y:integer):integer;
begin
if x<y then nn:=x
else nn:=y;
end;
{-----------------chuong-trinh-chinh-----------------}
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,n);
for i:=1 to n do
read(f1,a[i]);
min:=nn(a[1],a[2]);
for i:=3 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
uses crt;
const fi='kiemtra.txt';
var f1:text;
a,b,c:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,a);
readln(f1,b);
readln(f1,c);
writeln((a+b)*(a+c)*(c+b));
close(f1);
readln;
end.
uses crt;
const fi='kiemtra.txt';
var f1:text;
a,b,c:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,a,b,c);
writeln((a+b)*(a+c)*(b+c));
close(f1);
readln;
end.
a: if (a=b) or (b=c) or (a=c) then writeln('Tam giac can');
b: if (a=c) and (b=c) then writeln('Tam giac deu');
c: if (x mod 2<>0) and (x mod 3=0) then writeln('x la so nguyen le va chia het cho 3');