Phân biệt ảnh được chèn vào và ảnh làm nền cho trang chiếu(về chức năng, thao tác tạo ảnh và các thao tác có thể thực hiện được với ảnh đó
K
Khách
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.
ML
22 tháng 2 2020
Program hotrotinhoc;
const fi='cau2.inp';
fo='cau2.out';
var f: text;
s: ansistring;
i,n,d,max,min: integer;
a: array[1..1000] of string;
procedure ip;
begin
assign(f,fi);
reset(f);
read(f,s);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
s:=s+' ';
while length(s)<>0 do
begin
inc(d);
min:=1001;
max:=0;
a[d]:=copy(s,1,pos(' ',s)-1);
delete(s,1, pos(' ',s));
end;
for i:=1 to d do
begin
if length(a[i])>max then max:=length(a[i]);
if length(a[i])<min then min:=length(a[i]);
end;
write(f,min,' ',max);
close(f);
end;
begin
ip;
out;
end.
22 tháng 2 2020
uses crt;
var x:int64;
kt,i,n,d,j,kt1,k:integer;
a:array[1..100]of longint;
st:string;
ktnt:boolean;
begin
clrscr;
write('x='); readln(x);
if (0<x) and (x<1000000000) then
begin
kt:=0;
for i:=2 to trunc(sqrt(x)) do
if x mod i=0 then kt:=1;
if kt=0 then
begin
str(x,st);
d:=length(st);
for j:=1 to d do
val(st[j],a[j],n);
ktnt:=false;
for j:=1 to d do
begin
kt1:=0;
for k:=2 to a[j]-1 do
if a[j] mod k=0 then kt1:=1;
if kt1=0 then ktnt:=true
else ktnt:=false;
end;
if ktnt=true then writeln(x*2)
else writeln(x div 2);
end
else writeln(x div 2);
end
else writeln('vui long nhap lai');
readln;
end.
14 tháng 2 2020
uses crt;
var a:array[1..100]of integer;
k,n,i,tam,x,t:integer;
begin
clrscr;
write('nhap so ban hoc sinh:'); readln(n);
for i:=1 to n do
begin
write('ma so thu ',i,' la:'); readln(a[i]);
end;
{----------------------sap-day-tang-dan--------------------}
for i:=1 to n-1 do
for k:=i+1 to n do
if a[i]>a[k] then begin
t:=a[i];
a[i]:=a[k];
a[k]:=t;
end;
{-----------------------xu-ly-chen--------------------------}
write('nhap ma so k:'); readln(k);
i:=1;
while(k>a[i]) and (i<=n) do
i:=i+1;
for x:=n+1 downto i do
a[x]:=a[x-1];
a[i]:=k;
writeln('ket qua la:');
for i:=1 to n+1 do write(a[i],' ');
readln;
end.
7 tháng 3 2020
program Tin_hoc;
uses crt;
var n,i,j,min:integer;
a: array[1..100] of integer;
begin
clrscr;
write('Nhap n: ');readln(n);
writeln('Nhap ',n,' phan tu:');
for i:= 1 to n do begin write('a[',i,']: '); readln(a[i]) end;
for i:= 1 to n do begin
min:=a[i];
If a[i] >0 then for j:= i to n do if a[j] < a[i] then min:= a[j];
write(min,' ') end;
for i:= 1 to n do begin
min:=a[i];
If a[i] <0 then for j:= i to n do if a[j] < a[i] then min:= a[j];
write(min,' ') end;
readln;
end.
Mik ko có thời gian nên chỉ làm thử câu a
Sai thì thôi nha
11 tháng 2 2020
uses crt;
var d,x,kt,j:integer;
st:string;
a:array[1..100]of longint;
i:longint;
begin
clrscr;
for i:=10000 to 99999 do
begin
str(i,st);
d:=length(st);
for j:=1 to d do
val(st[j],a[j],x);
kt:=0;
for j:=1 to d-1 do
if a[j]>=a[j+1] then kt:=1;
if kt=0 then write(i:6);
end;
readln;
end.
