Значение выражения 3435 + 73 – 1 – X записали в системе счисления с основанием 7, при этом в записи оказалось 12 цифр 6. При каком минимальном целом положительном X это возможно? ответ: .
Обозначим через ДЕЛ(n, m) утверждение «натуральное число n делится без остатка на натуральное число m».
Для какого наибольшего натурального числа A формула
ДЕЛ(70, A) /\ (ДЕЛ(x, 28) → (¬ДЕЛ(x, A) → ¬ДЕЛ(x, 21)))
тождественно истинна, то есть принимает значение 1 при любом натуральном x?
ответ: .
Алгоритм вычисления значения функции F(n), где n – целое неотрицательное число, задан следующими соотношениями:
F(0) = 0;
F(n) = F(n/2), если n > 0 и при этом n чётно;
F(n) = 1 + F(n – 1), если n нечётно.
Назовите минимальное значение n, для которого F(n) = 12.
ответ: .
Назовём натуральное число подходящим, если у него больше 17 различных делителей (включая единицу и само число). Определите количество подходящих чисел, принадлежащих отрезку [10 001; 50 000], а также наименьшее из таких чисел. В ответе запишите два целых числа: сначала количество, затем наименьшее число.
ответ:
Дан квадрат 15×15 клеток, в каждой клетке которого записано целое число. В левом верхнем углу квадрата стоит ладья. За один ход ладья может переместиться в пределах квадрата на любое количество клеток вправо или вниз (влево и вверх ладья ходить не может). Необходимо переместить ладью в правый нижний угол так, чтобы сумма чисел в клетках, в которых ладья останавливалась (включая начальную и конечную), была максимальной.
В ответе запишите максимально возможную сумму. Исходные данные записаны в электронной таблице. Пример входных данных (для таблицы размером 4×4):
–3 1 –3 –4
–4 –4 –2 2
6 1 2 –2
–6 7 6 –3
Для указанных входных данных ответом будет число 14 (ладья проходит через клетки с числами –3, 6, 1, 7, 6, –3).
ответ: .
char[] massa = a.ToCharArray(); char[] massb = b.ToCharArray(); foreach(char itema in massa) { foreach(char itemb in massb) { if(itema == itemb) { break; } else { a += itema.ToString(); break; } } } return a; }
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