Var a1,a2:integer;
begin
readln(a1);
readln(a2);
a1:=a1*a1*a1;
a2:=a2*a2*a2;
if a1>a2 then writeln(a1) else
writeln(a2);
end.
x - бронебойных
2x - трассирующих
2x+6 - обычных
Общее количество патронов:
x+2x+2x+6 = 5x+6
log(2)[1/2x/(5x+6)] = log(2)[(5x+6)/2x] = 2
(5x+6)/2x = 2^2
5x+6 = 8x
3x = 6
x = 2
5x+6 = 5*2+6 = 16
Ответ: 16,2
Обычный фильтр Access используется для отбора записей по значениям нескольких полей. Поле Фильтр для (Filter For) используется, если фокус ввода находится в поле таблицы и нужно ввести конкретное искомое значение или выражение, результат которого будет применяться в качестве условия отбора. Для создания сложных фильтров следует использовать окно расширенного фильтра. Набор записей, которые были отобраны в процессе фильтрации, называется результирующим набором. Чтобы использовать фильтр по выделенному фрагменту, необходимо ... Для того чтобы установить фильтр по выделенному фрагменту, можно воспользоваться также командой контекстного меню Фильтр по выделенному (Filter by Selection) или выбрать из меню Записи (Records) команду Фильтр, Фильтр по выделенному (Filter, Filter by Selection)
В программе буквы добавляются по алфавиту без повторений.
var s1,s2:string;
function F(var a,b:string):boolean;
var m:set of char; i:integer; c:char;
begin
m:=[];
for i:=1 to length(a) do
if pos(a[i],b)=0 then m:=m+[a[i]];
for c:=chr(32) to chr(255) do
if c in m then a:=a+c;
if m=[] then f:=false else f:=true;
end;
begin
writeln('Введите строку 1:');
readln(s1);
writeln('Введите строку 2:');
readln(s2);
if f(s1,s2)
then writeln('Новая строка: ',s1) else writeln('Строка не изменилась ');end.
Пример:
Введите строку 1:
program
Введите строку 2:
procedure
Новая строка: programagm