<h3>PascalABC.NET 3.4.2, сборка 1859 от 08.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var s:=ReadlnString;
s:=s.RegexReplace('[AaBb]','c');
s.Println
end.
<h3>Пример</h3>
A quick movement of the enemy will jeopardize six gunboats.
c quick movement of the enemy will jeopcrdize six guncocts.
Program s;
var
a:integer;
begin
readln(a);
if a mod 2 = 0 then write(a*1.19) else write(a*0.18);
end.
Program lyly;
const
n = 4;
var
a: array[1..n, 1..n] of integer;
i, j, s: integer;
sr: real;
begin
s := 0;
Writeln('Исходная матрица');
for i := 1 to n do
begin
for j := 1 to n do
begin
a[i, j] := Random(256);
Write(a[i, j]:5);
s := s + a[i, j]
end;
Writeln
end;
sr := s / sqr(n);
Writeln('Средняя яркость', sr);
Writeln('Результирующая матрица');
for i := 1 to n do
begin
for j := 1 to n do
begin
if a[i, j] <= sr then a[i, j] := 0 else a[i, j] := 255;
Write(a[i, j]:5)
end;
Writeln
end
end.
Тестовое решение:
Исходная матрица
108 247 9 175
10 80 123 80
75 165 82 128
167 168 6 27
Средняя яркость103.125
Результирующая матрица
255 255 0 255
0 0 255 0
0 255 0 255
255 255 0 0
<span>7 больших желтых яблок
все груши большие значит яблок больших 32-17=15
всего плодов 25+17=42 из них 28 желтых значит зеленых 42-28=14
зеленых яблок на 2 больше чем зеленых груш значит яблок зеленых 8 а груш 6
зеленые яблоки все большие значит 15-8=7
ответ 7</span>
Для объема нужно вес одного символа и количество. количество будет 42
вес одного символа мы можем узнать через алфавит
16=2^4
вес равен 4
объём равен 4*42=168 бит
нам только просили в бит
ответ равен 168 бит