// PascalABC.NET 3.3
begin
var a:=ReadSeqIntegerWhile(x->x<>0).ToArray;
Print(a.Count,a.Where(x->(x mod 2<>0)and(x mod 3=0)).Count);
end.
Пример:
20 87 15 46 61 0
5 2
<span>Определите,какие из перечисленных моделей материальные,а какие информационные. Укажите номера материальных моделей.
1) Макет декорационного оформления театральной постановки.
3) Географический атлас.
4) Объёмная модель молекулы воды.
6) Макет скелета человека.
9) Игрушечный паровоз.</span>
Сладкий вкус(прямое)- сладкий сон (переносное)
горький шоколад(прямое)- горькая правда(переносное)
стальной гвоздь(прямое)- стальные нервы(переносное)
холодные руки)прямое)- холодный взгляд(переносное)
INPUT "x=", x
PRINT 1 - 2 * x + 3 * x ^ 2 - 4 * x ^ 3
PRINT 1 + 2 * x + 3 * x ^ 2 + 4 * x ^ 3
<em><u>Тестовое решение:</u></em>
Y:\qbasic>QBASIC.EXE
x=2.37
-40.1375
75.83891
2675,713₈
- 204,551₈
----------------
2471,142₈
Подробности. Вычитание производим "в столбик", начиная с самого правого разряда. Если в разряде уменьшаемое не меньше вычитаемого, выполняем вычитание в привычной десятичной системе. 3₈ - 1₈ = 2₈
Теперь переходим в соседний разряд. Тут уменьшаемое меньше вычитаемого, поэтому нужно "занять" единичку в старшем разряде. В десятичной системе эта единичка превращается в 10, а в восьмеричной - в восемь. 1₈ - 5₈ превратится в (1+8) - 5 = 4₈. Т.е. мы прибавляем к уменьшаемому эти 8, а дальше все считаем снова, как в привычной десятичной системе. 7₈ - 5₈ после "занятия" единицы превратится в
6₈ - 5₈ = 1₈ - тут все, как в делали в самом младшем разряде.
Остальная часть решения трудностей не представляет.
Ответ: 2471,142₈