//Pascal ABC.NET Версия 2.2 Сборка 790
var a,b:string;
i,j,k:integer;
begin;
readln(a);
readln(b);
for i:=1 to length(a) do
begin;
for j:=1 to length(b) do
begin;
if a[i]=b[j] then
begin;
delete(b,j,1);
inc(k);
end;
end;
end;
if k=length(a) then writeln('Да') else writeln('Нет');
end.
Пример ввода:
abc
cba
Пример вывода:
Да
Uses crt;
const
n:integer = 10;
var b: array[1..n] of byte;
a:integer;
d:byte;
begin
for d:=1 to 10 do b[d]:= random(10)+1;d:=1;
a:=1;
while (d < n) do begin a:=a*b[d]; d:=d+2;
end;
writeln(a);
<span>end.</span>
Не уверена, что поняла вопрос правильно, но всё-таки:
1. Разделить десятичное число на 2, получится частное и остаток.
2. Разделить <em>частное</em> на 2, получится частное и остаток.
3. Продолжать деление частных, пока последнее частное не будет меньше 2.
4. Последнее частное и остатки записать в обратном порядке.
Например, из 27 в десятичной = 11011 в двоичной.
Файлы:
1. primera.dat
2. primera.doc
3. merchant.doc
4. k-mer.doc
5. omerta.doc
6. Temerlan.docx
1) *mer?.doc - отбирает файлы с расширением .doc и именем (я буду называть именем всё без расширения), оканчивающимся на mer и еще какую-то букву.
Будет отобрано только файл 2.
2) ?*mer?.doc - тут по сравнению с предыдущим добавляется условие, что перед mer должно быть что-то еще. Если в прошлом случае был 1 файл, то и в этом не больше одного.
3) *mer*?.doc - файлы с именем, содержащим mer, но не оканчивающимся на него и расширением .doc. Отберутся файлы 2, 3, 5 - три файла.
4) *?mer*?.doc - тут mer должно еще и не быть в начале, по сравнению с предыдущим. Будут отобраны файлы 2 и 5.
Ответ. 3.
Var i, h, res: integer;
begin
write('H = ');
readln(h);
res:=1;
for i:=1 to h do
res:=res*i;
writeln(h, '! = ', res);
<span>end.</span>