383 / 256 = 1 * 256 + 127 => итог: 1
127/ 16 = 7 * 16 + 15 => итог: 17
15 / 1 = 15 = F => итог 17F
Ответ: 17F
Дерево -корень
Дерево - ствол
Дерево - фруктовое - яблоня - яблоко
Дерево - хвойное - сосна
Дерево -хвойное - пихта
Дерево - хвойное лиственница
Дерево лиственное - дуб - желудь
Дерево - лиственное - береза
Задачу удобно решать с помощью кругов Эйлера (см. прилагаемый файл).
К1+К2+К3 = 15000
К2 = 8000
К2+К3 = 12000
К1 = 15000-12000 = 3000
К1+К2 = 3000+8000 = 11000
Ответ: 11000
<em>// PascalABC.NET 3.3, сборка 1599 от 17.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function sn(n:integer):integer; // сумма цифр числа
begin
n:=Abs(n);
Result:=0;
while n>0 do begin
Result+=n mod 10;
n:=n div 10
end
end;
begin
var (n,a,b):=ReadInteger3('Введите n,a,b через пробел:');
var m:=ArrRandom(n,a,b); m.Println;
var k:=ReadInteger('k=');
Writeln('Найдено чисел: ',m.Where(t->sn(t)=k).Count)
end.
<u>Пример</u>
Введите n,a,b через пробел: 15 -50 60
43 2 42 -26 -34 57 45 44 29 -41 -4 1 -17 38 -19
k= 7
Найдено чисел: 2
1) 1, 2)1, 3)34, 4)2, 5)наложение, 6)рисовать, писать, подчеркивать, клей карандаш, 7)незнаю сорри