Карась - рыба (р)
Слон -животное (ж) и так далее
Ну смари.
Дано:
X - информационный объём.
X1 - 0.5 Кбайт = 1024 * 0,5 = 512 байт.
X2 - 500 байт.
N ( разница объёмов сообщений ) = X1 - X2 = 512 - 500 = 12 байт.
Ответ: N = 12 байт.
Профит^^
{Автор: Рудницкий В. Л.
Ограничения: Последовательность не может быть длинее NN.
Откуда: Олимпиада, KZ, 2016.}
const NN = 10000;
var a : array [1 .. NN] of integer; i, j, d, N: integer;
begin
write('Введите длину массива: '); readln(N);
writeln('Введите массив чисел через пробел:');
for i := 1 to N do read( a[i] );
{ Удаляем повторы чисел }
for i := 1 to N-1 do
for j := i+1 to N do
if a[i] = a[j] then a[j] := 0;
{ Создаем последовательность заполняя не нужные числа нулями }
for i := 2 to N do if ( a[i-1] > a[i] ) and ( a[i] <> 0 ) then a[i] := 0;
{ Суммируем не нулевые элементы }
d := 0; for i := 1 to N do if a[i] <> 0 then d := d + 1;
writeln('Максимальная длинна массива после удалений: ',d);
end.
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var s:=ReadlnString('>');
s:=s.Replace('о','oa').Replace(' ','_').Replace(',','');
Writeln(s);
end.
<u><em>Тестовое решение</em></u>
> "Дает корова молоко" - писать, конечно, не легко!
"Дает_кoaрoaва_мoaлoaкoa"_-_писать_кoaнечнoa_не_легкoa!