Спас зайцев с острова A
Спас зайцев с бревна B
A&B
Сохранение мира A
увеличить усилия всех государств B
B→A
Отказываться от помощи A
Сесть в лужу B
→
подчеркивание сверху означает отрицание
Луна сияла A
Июльская ночь была тиха B
Поднимался ветерок C
Пробегал легкий шорох D
A&B&C&D
Ахейские мастера A
оружейники B
ювелиры C
гончары D
художники E
скульпторы F
A&B&C&D&E&
Сильные A
Афины B
Спарта C
Богатые D
Коринф E
A→B&C+D→E
Берегла книги A
Берегла рисунки B
Берегла стихи C
A&B&C
Бурмин A
Ум, нравится женщинам B
Ум приличия C
Ум наблюдения D
Ум без притязаний E
Ум беспечно насмешливый F
A&(B→C&D&E&F)
Вероятно так... за точность не ручаюсь, ибо уже подупоролась
<em>// PascalABC.NET 3.3, сборка 1540 от 16.09.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(ReadSeqInteger('Вводите числа:',ReadInteger('N='))
.Where(x->Abs(x).Between(10,99)).Count)
end.
<u>Пример</u>
N= 5
Вводите числа: 23 -4 100 -42 16
3
begin
var k:=ReadInteger('K=');
Writeln(ReadSeqInteger('Вводите трехзначные числа:',ReadInteger('N='))
.Where(m->Abs((m mod 10)*(m div 100)*(m div 10 mod 10))=k).Count)
end.
<u>Пример</u>
K= 8
N= 10
Вводите трехзначные числа: 142 712 426 -222 318 916 107 932 -116 473
2
Жорсткий диск,відео карта,процесор,оперативна память,блок живлення.
A = int(input())
if a == 2 or a == 4 or a == 6 or a == 5:
print("5")
else:
print("6")