<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := SeqRandom(10000, -10, 10).Where(t -> t.IsEven)
.Take(15).ToArray;
a.Println;
a.Where(t -> t < 0).Count.Println;
a.Transform(t -> t < 0 ? 0 : t);
a.Println
end.
<h2>Пример</h2><h3>-6 10 2 4 -2 -4 2 2 10 -10 -6 -8 -8 2 -6</h3><h3>8 </h3><h3>0 10 2 4 0 0 2 2 10 0 0 0 0 2 0</h3>
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
var s:=ReadlnString('Введите слово:').ToLower;
if s=ReverseString(s) then Writeln('Перевертыш')
else Writeln('Не перевертыш')
end.
<u><em>Тестовое решение:</em></u>
Введите слово: Шалаш
Перевертыш
Введите слово: револьвер
Не перевертыш
Ответ:
1)11211111 или 1)1112111
2)332
Объяснение:
1)(1+3+3)*2+3+3+3+3+3=29 или 1)(1+3+3+3)×2+3+3+3
2)1+4+4+2=11
Тут вообще речь идёт о способах подключения компов по локальной сети - Топология.... способов хватает, так что на твои вопросы ответить можно:
1)либо кольцо, либо шина
2)звезда
3)иерархическая (снежинка)
4)звезда
Можно, например, так:
В ячейку B1 ввести формулу =3,14/6
В ячейку A2 - значение 3,14
Все остальные значения получать с помощью формулы вида:
=A2+$B$1
(См. прилагаемый файл)