Во вложении решение. Триады-это разбиение по 3 цифры, тетрады - это по 4 цифры.
При переводе из десятичной сс в двоичную с помощью таблицы пишешь 1, если число нечетное (т.к. нечетное число на 2 без остатка не делится, и в остатке всегда 1. Этот остаток ты и пишешь, где нечетное). А чётное делится на 2 без остатка, поэтому там, где число чётное, пишется ноль.
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
Writeln('Ср.знач.=',
ArrRandom(ReadInteger('n='),1,50).Println.Average)
end.
<u><em>Тестовое решение:</em></u>
n= 15
46 24 35 34 48 18 34 7 12 5 22 14 2 4 43
Ср.знач.=23.2
<u>PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var x:=ReadReal('x=');
var r:=Sqrt(Abs((Sqr(x**5-3)-5)/(5*x-7))+7)+10*x;
Print(r);
r:=Round(r);
Println(r)
end.
<u>Пример</u>
x= -12.502
36508.4531755161 36508
Program n1;
var a,p: integer;
begin
randomize;
a:=random(90)+10;
p:=(a mod 10)*(a div 10);
writeln('произведение цифр числа ',a,' равно ',p);
end.
Я думаю, что не существует. Звезды называются людьми для удобства. И хоть звезд во вселенной миллиарды, но людьми наблюдается не очень много звезд.
Если звезды называются для удобства человека, то наличие двух звезд с одним и тем же именем может вызвать путаницу.
