1.В языке запросов поискового сервера для обозначения логической операции «ИЛИ» используется символ «|», а для обозначения логической операции «И» — символ «&». В таблице приведены запросы и количество найденных по ним страниц некоторого сегмента сети Интернет. Какое количество страниц (в тысячах) будет найдено по запросу
Угол & Прямая?
Считается, что все запросы выполнялись практически одновременно, так что набор страниц, содержащих все искомые слова, не изменялся за время выполнения запросов.
2.Доступ к файлу kassa.xls, находящемуся на сервере magazin.com, осуществляется по протоколу http. Фрагменты адреса файла закодированы буквами от А до Ж. Запишите последовательность этих букв, кодирующую адрес указанного файла в сети Интернет.
Procedure TForm1.Button1Click(Sender: TObject); begin If FontDialog.Execute then RichEdit1.SelAttributes.Assign(FontDialog1.Font); RichEdit1.SetFocus; End; end;
делфи у меня не установлены за совершенной ненадобностью, потому проверить возможности нет, но догадки показать могу. Не уверенна что RichEdit1.SelAttributes.Assign(FontDialog1.Font) выставляет шрифт, может там нужна кострукция типа RichEdit1.SelAttributes.Font := FontDialog1.Font и конечно описка выделенная ранее, как на нее только компилятор не матерится
Var s,s1:string; a,b:array[1..100]of integer; i,n,x,k:integer; begin readln(s); readln(s1); n:=1; if length(s)>length(s1) then x:=length(s) else x:=length(s1); for i:=1 to length(s) do begin val(copy(s,i,1),k,n); a[i+x-length(s)]:=k; end; for i:=1 to length(s1) do begin val(copy(s1,i,1),k,n); b[i+x-length(s1)]:=k; end; for i:=1 to length(s) do a[i]:=a[i]+b[i]; for i:=length(s) downto 2 do begin a[i-1]:=a[i-1]+a[i]div 10; a[i]:=a[i]mod 10; end; for i:=1 to length(s) do write(a[i]);
begin
If FontDialog.Execute then
RichEdit1.SelAttributes.Assign(FontDialog1.Font);
RichEdit1.SetFocus;
End;
end;
делфи у меня не установлены за совершенной ненадобностью, потому проверить возможности нет, но догадки показать могу.
Не уверенна что RichEdit1.SelAttributes.Assign(FontDialog1.Font) выставляет шрифт, может там нужна кострукция типа
RichEdit1.SelAttributes.Font := FontDialog1.Font
и конечно описка выделенная ранее, как на нее только компилятор не матерится
s,s1:string;
a,b:array[1..100]of integer;
i,n,x,k:integer;
begin
readln(s);
readln(s1);
n:=1;
if length(s)>length(s1) then
x:=length(s)
else x:=length(s1);
for i:=1 to length(s) do
begin
val(copy(s,i,1),k,n);
a[i+x-length(s)]:=k;
end;
for i:=1 to length(s1) do
begin
val(copy(s1,i,1),k,n);
b[i+x-length(s1)]:=k;
end;
for i:=1 to length(s) do
a[i]:=a[i]+b[i];
for i:=length(s) downto 2 do
begin
a[i-1]:=a[i-1]+a[i]div 10;
a[i]:=a[i]mod 10;
end;
for i:=1 to length(s) do
write(a[i]);
end.