Дополнительные сведения о панели быстрого доступа см. в статье Настройка панели быстрого доступа.
Чтобы отменить одновременно несколько действий, нажмите стрелку рядом с кнопкой Отменить Изображение кнопки, выделите в списке действия, которые нужно отменить, и щелкните список.
Все выделенные действия будут отменены.
Var M, N, sumN: integer;
begin
readln(N);
M := N;
sumN := 0;
while (M > 0) do
begin
inc(sumN, M mod 10);
M := M div 10;
end;
M := (N div sumN + 1) * sumN;
if (M < 2*N) then
writeln(M)
else
writeln('нет')
end.
Ответ:
<u><em>3</em></u>
Объяснение:
01111 не подходит, так как имеет с буквой И (11110) 2 различия, 01001 не подходит, так как имеет с буквой С (01011) 2 различия, 00101 подходит, а значит ответ на вопрос расположен под цифрой 3.
1. символ алфавита занимает
бит, значит объем (информационный) текста равен 150*6=900 бит
2. 400/100 бит на символ = 4 бита на символ. Всего различных символов
. ответ 16
<em>// PascalABC.NET 3.2, сборка 1367 от 20.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a,b:integer;
Write('Введите a и b: '); Read(a,b);
Writeln('П=',Range(a,b).Aggregate(BigInteger(1),(m,n)->m*n))
end.
<u>Пример</u>
Введите a и b: 13 57
П=84607064997021339293398188869165201400121387478093188300800000000000
