<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3><h2>№1</h2>
begin
var s := ReadlnString;
var a := ReadlnChar;
if s[1] = a then Print('Да')
else Print('Нет')
end.
<h2>№2</h2>
begin
var s := ReadlnString;
var a := ReadlnChar;
s.Where(c->c=a).Count.Println
end.
Способы противодействия компьютерным вирусам можно разделить на несколько групп:
· профилактика вирусного заражения и уменьшение предполагаемого ущерба от такого заражения;
· использование антивирусных программ, в том числе для обезвреживания и удаления известного вируса;
· обнаружение и удаление неизвестного вируса.
<span />
По моим рассуждениям это: 3)7, была бы норм фотка то точно бы сказал.
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, -99, 99);
a.Println;
var x := a.Where(p -> p > 0).ToArray;
var y := a.Where(p -> p < 0).ToArray;
x.Println;
y.Println
end.