Begin
var n := readinteger('Введите n:');
var m := readinteger('Введите m:');
write(readarrinteger(10).Where(x -> (x > n) and (x < m)).count);
end.
Не понял, зачем тебе переменная m? Вот программа
program num9;
const
N = 5;
var
a: array [1..N] of integer;
i: integer;
begin
for i := 1 to N do
readln(a[i]);
for i := N downto 1 do
if (a[i] < 0) and (sqr(a[i]) < 7000) then
writeln(a[i]);
end.
Делим 27 на основание системы счисления 16 и собираем остатки от деления,
если остаток больше 9, то делаем замену 10 - A, 11 - B ... 15 - F. Получаем:
27(10)=1B(16)
Пусть F(n) - число способов замостить дорожку 2xn. Тогда F(1) = 1, F(2) = 2.
Если n > 2, то можно либо положить с краю одну плитку вертикально, и заполнять осташуюся часть форожки 2x(n - 1), или положить две горизонтально и заполнять 2x(n - 2). Первое можно выполнить F(n - 1) способами, второе F(n - 2) способами. Поэтому F(n) = F(n - 1) + F(n - 2).
Получилось определение чисел Фибоначчи, F(n) - n- ое число Фибоначчи, F(n) = Fib(n).
Ответ. F(11) = Fib(11) = 144.
Ответ:
Дано:
640x480;
I=256Кбайт;
Найти: i.
Решение:
K=640*480=307200;
i=I/K=256(Кбайт)*307200=(1024*256)(Байт)/307200=(8*1024*256)(бит)/307200 (Примерно равно) 6.
Объяснение:
Получается 6,82666667, но округляем мы не до семи, а до шести. Потому что выделено 256Кбайт. Если бы мы взяли 7 цветов, это заняло бы больше места, чем 256Кб.
