// PascalABC.NET
begin
// 1
var s1 := ReadlnString.Replace(' ','');
s1.Println;
// 2
var m := ReadlnString.MatchValues('[AaBb]');
if m.Count > 0 then
begin
var n := m.Count(c -> c.ToLower = 'a') -
m.Count(c -> c.ToLower = 'b');
case Sign(n) of
-1: Println('В строке больше символов B');
0: Println('В строке поровну символов A и B');
1: Println('В строке больше символов A');
end
end
else
Println('В строке нет символов A или B');
// 3
var s2 := 'Казнить, нельзя помиловать';
var i := Pos(',', s2);
Delete(s2,i,1);
i := Pos('я', s2);
Insert(',', s2, i + 1);
s2.Print
end.
begin
var n:=ReadInteger('n=');
var A:=ReadArrInteger('Массив А:',n);
var m:=ReadInteger('m=');
var B:=ReadArrInteger('Массив B:',m);
var k:=ReadInteger('k=');
var C:=ReadArrInteger('Массив C:',k);
var D:=(A+B+C).Sorted;
D.Println
end.
Тестовое решение
n= 5
Массив А: 7 11 -4 9 8
m= 3
Массив B: -5 -3 -8
k= 4
Массив C: 1 4 9 7
-8 -5 -4 -3 1 4 7 7 8 9 9 11