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.
Trong Windows muốn đổi tên một thư mục (Folder) hay tập tin, ta chọn thư mục (hoặc tập tin đó) rồi thực hiện : File → Rename (hoặc nhấn phím phải chuột chọn Rename)
1:
uses crt;
const fi='min4so.inp';
var f1:text;
a,b,c,d,min:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,a,b,c,d);
min:=a;
if min>b then min:=b;
if min>c then min:=c;
if min>d then min:=d;
writeln('so nho nhat la: ',min);
close(f1);
readln;
end.
2:
const fi='tongtich.inp';
fo='tongtich.out';
var f1,f2:text;
a,b:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,a,b);
if (a mod 2=0) and (b mod 2=0) then writeln(f2,'tong cua hai so la: ',a+b)
else writeln(f2,'tich cua hai so la: ',a*b);
close(f1);
close(f2);
end.
3:
const fi='socp2.inp';
fo='socp2.out';
var f1,f2:text;
n:integer;
x:real;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
if trunc(sqrt(n))=sqrt(n) then
begin
writeln(f2,'YES');
x:=sqrt(n);
writeln(f2,x:4:2);
end
else writeln(f2,'NO');
close(f1);
close(f2);
end.
4:
const fi='kttg2.inp';
fo='kttg2.out';
var a,b,c,kt:integer;
f1,f2:text;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
write(f2,'day la tam giac ');
kt:=0;
if ((a=b)and(a<>c)and(b<>c)) or ((b=c)and(b<>a)and(b<>c)) or ((a=c)and(a<>b)and(c<>b)) then kt:=1;
if (a=b) and (b=c) then kt:=2;
if (sqr(a)=sqr(b)+sqr(c)) or (sqr(b)=sqr(a)+sqr(c)) or (sqr(c)=sqr(a)+sqr(b)) then kt:=3;
if kt=0 then write(f2,'thuong');
if kt=1 then write(f2,'can');
if kt=2 then write(f2,'deu');
if kt=3 then write(f2,'vuong');
end
else writeln(f2,'day khong phai la tam giac');
close(f1);
close(f2);
end.
const fi='timmax.inp';
fo='timmax.out';
var f1,f2:text;
st,xauso:ansistring;
d,i,max,x:longint;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,st);
d:=length(st);
xauso:='';
max:=0;
for i:=1 to d do
if st[i] in ['0'..'9'] then xauso:=xauso+st[i]
else begin
val(xauso,x);
if max<=x then max:=x;
xauso:='';
end;
if max=0 then writeln(f2,'-1')
else writeln(f2,max);
close(f1);
close(f2);
end.
Nguyễn My mượn sài đở