// 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.
4) 0 1 2 3 4 5 4 3 2 1 0
Объяснение:
Заполнение массива:
для i от 0 до 10 выполнить a[i] = i
i = 0 a[0] = 0
i = 1 a[1] = 1
i = 2 a[2] = 2
Т.е. значение элемента массива равно индексу элемента.
Первоначальный массив выглядит так: 0 1 2 3 4 5 6 7 8 9 10
Изменение массива:
для i от 0 до 10 выполнить
Действия в цикле:
1) a[10-i] = a[i]
2) a[i] = a[10-i]
i = 0
Действия в цикле:
1) a[10-0] = a[0] (a[i] значение элемента берём из первоначального массива) a[10] = 0
2) a[0] = a[10-0] a[0] = a[10] a[0] = 0
i = 1
Действия в цикле:
1) a[10-1] = a[1] (a[i] значение элемента берём из первоначального массива) a[9] = 1
2) a[1] = a[10-1] a[1] = a[9] a[1] = 1
i = 2
Действия в цикле:
1) a[10-2] = a[2] (a[i] значение элемента берём из первоначального массива) a[8] = 2
2) a[2] = a[10-2] a[2] = a[8] a[2] = 2
i = 3
Действия в цикле:
1) a[10-3] = a[3] (a[i] значение элемента берём из первоначального массива) a[7] = 3
2) a[3] = a[10-3] a[3] = a[7] a[3] = 3
i = 4
Действия в цикле:
1) a[10-4] = a[4] (a[i] значение элемента берём из первоначального массива) a[6] = 4
2) a[4] = a[10-4] a[4] = a[6] a[4] = 4
i = 5
Действия в цикле:
1) a[10-5] = a[5] (a[i] значение элемента берём из первоначального массива) a[5] = 5
2) a[5] = a[10-5] a[5] = a[5] a[5] = 5
Промежуточный массив выглядит так: 0 1 2 3 4 5 4 3 2 1 0
i = 6
Действия в цикле:
1) a[10-6] = a[6] (a[i] значение элемента берём из промежуточного массива) a[4] = 4
2) a[6] = a[10-6] a[6] = a[4] a[6] = 4
i = 7
Действия в цикле:
1) a[10-7] = a[7] (a[i] значение элемента берём из промежуточного массива) a[3] = 3
2) a[7] = a[10-7] a[7] = a[3] a[7] = 3
i = 8
Действия в цикле:
1) a[10-8] = a[8] (a[i] значение элемента берём из промежуточного массива) a[2] = 2
2) a[8] = a[10-8] a[8] = a[2] a[8] = 2
i = 9
Действия в цикле:
1) a[10-9] = a[9] (a[i] значение элемента берём из промежуточного массива) a[1] = 1
2) a[9] = a[10-9] a[9] = a[1] a[9] = 1
i = 10
Действия в цикле:
1) a[10-10] = a[10] (a[i] значение элемента берём из промежуточного массива) a[0] = 0
2) a[10] = a[10-10] a[10] = a[0] a[10] = 0
Окончательный массив выглядит так: 0 1 2 3 4 5 4 3 2 1 0
var a: integer;
begin
writeln ('Введите год');
readln (a);
if a mod 4 <> 0 then writeln ('В этом году 365 дней') else
if (a mod 4 = 0) and (a mod 100 <> 0) then writeln ('В этом году 366 дней') else
if (a mod 100 = 0) and (a mod 400 <> 0) then writeln ('В этом году 365 дней');
end.