<em>// PascalABC.NET 3.2, сборка 1509 от 27.07.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function SumDig(n:integer):integer;
begin
Result:=0;
while n>0 do begin
Result+=n mod 10;
n:=n div 10
end
end;
begin
var a:=ReadSeqInteger('Вводите числа:',ReadInteger('n=')).ToArray;
Write('Палинодромы: ');
a.Select(x->x.ToString).Where(x->x=x.Inverse).Println;
var k:=ReadInteger('Введите простое число');
Write('Числа, сумма цифр которых больше введенного: ');
a.Where(x->SumDig(x)>k).Println
end.
<u>Пример</u>
n= 12
Вводите числа: 9437 2522 3534 1532 4664 6882 7629 5820 2530 9889 6526 6573
Палинодромы: 4664 9889
Введите простое число 19
Числа, сумма цифр которых больше введенного: 9437 4664 6882 7629 9889 6573
Я считаю что так:
только английский-25 чел
только французкий-27
оба языка-18
Деревья и Цветы распускаются в разное время.Это зависит от того когда весна придет.То есть получается то что деревья и цветы могут распустится и в Апреле,и в Мае,и даже иногда в Марте.
Да это правда
:))))
Не за что помочь
Определим для алфавита СС. О = 0 ... Т = 3. СС с основанием 4.
теперь можно из слов ТОПОР и РОПОТ определить третичные числа, а затем перевести их в СС с основанием 10
ТОПОР = 30102(4) = 786(10)
РОПОТ = 20103(4) = 531(10)
теперь вычитаем из большего меньшее и включаем правую границу
786 - 531 + 1 = 256
Ответ: 256
решать "в лоб" такое выражение не стоит, так как это трудоёмко, поэтому для начала упростим
AC v -(A)B v -A-C (дистрибутивность) ДНФ
-A-C v AC v BC
теперь найдём оценочно те параметры при которых хотя бы в одном случае получим в результате 1(так как или достаточно по одному набору
00 v ... v ... = 1
... v 11 v ... = 1
... v ... v 11 = 1
видим зависимость по параметру C так как если !С то выражение = 0
кроме варианта 00(-A-C) либо 11(AC), тогда первые 2 либо A, либо C
отсюда 3 столбец - это B
теперь определяем чередования по таблице, зная, где B
в строке (0, 1. 1) определяем подстановками, что переменные расположены в порядке CAB. для проверки дойдём по таблице до конца и, не находя неточных результатов утверждаем, что последовательность верна.
Ответ: CAB