Вариант Б) *1*.?о*
отсечка по расширению, попадет второй и четвертый файл
#Python 3.5.2
n, a, r, i = int(input()), input().split(), input(), 0
while (i<n) and (a[i]>=r): i+=1;
a.insert(i, r)
for i in range(n+1): print(a[i], end=' ')
//FPC 2.6.4
var
n, r, i, j: byte;
a: array[1..100] of byte;
begin
readln (n);
for i:=1 to n do read(a[i]);
readln (r);
j:=1;
while (j<=n) and (a[j]>=r) do inc(j);
for i:=1 to j-1 do write (a[i], ' ');
write(r, ' ');
for i:=j to n do write (a[i], ' ');
end.
0,5кБайт = 512Байт
128бит = 16 Байт
512Байт/16Байт=32
Ответ: Объём первого сообщения в 32 раза больше второго.
//перевод числа из системы исчисления
//с основанием от 2 до 9 в десятичную
#include <iostream>
#include <cstdlib>
#include <cstring>
using namespace std;
int pss(char sr[80], int i, int osn)
{
static int s;
char ch=sr[i-1];
if (i==strlen(sr)) s=1;
s=s*osn;
if (1<i) return (atoi(&ch)+pss(sr,i-1,osn)*osn);
else return (atoi(&ch));
}
int main(int argc, char** argv)
{
int osn=0;
char st[80];
cout<<" задайте основание (от 2 до 9) ";
cin>>osn; cout<<endl;
cout<<"число: "; cin>>st; cout<<endl;
cout<<"в десятичной системе: "
<<pss(st,strlen(st),osn);
return(0);
}
<span>
</span>
<u>PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
var a:array of real;
a:=SeqRandom(n,-99,99).Select(t->real(t)).ToArray; a.Println; Writeln;
a.Where(t->Trunc(t) mod 3 <>0).Println
end.