<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
<span>Один пиксель кодируется 16-тью битами. 2^16 = 65536 оттенков цветов. А если это число еще умножить на Разрешение дисплея, то вы получите количество бит в видеопамяти, необходимых для хранения выводимого на экран изображения. </span>
526 в восьмеричной
156 в шестнадцатеричной
<span>В чем состоит особенность поля "счетчик"?
</span><span>5. имеет свойство автоматического наращивания.
</span>В чем состоит особенность поля "мемо"?
<span>3. данные хранятся не в поле, а в другом месте, а в поле хранится только указатель на то, где расположен текст;
</span>
Какое поле можно считать уникальным?
<span>1. поле, значения в котором не могут повторятся;
</span>
<span>Ключами поиска в системах управления базами данных (СУБД) называются:
</span><span>3. поля, по значению которых осуществляется поиск;</span>