Var
a:array[1..10]of integer;
i,n:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(10)+1;
write(a[i],'; ');
end;
for i:=1 to 9 do
if a[i]<a[10] then
begin
n:=i;
break;
end;
writeln;
write('Ответ: ');
if n>0 then writeln(a[n]) else writeln(n);
<span>end. </span>
var
i, j: integer;
begin
for i:= 1 to 99 do
for j:= i +1 to 100 do
if i*i*i = j*j then writeln(i,' ',j);
end.
В а - количество цифр в числе
в b - произведение цифр
то есть число x - трехзначное и произведение его цифр=0,
990 - максимальное из трёхзначных, произведение цифр которых=0
ответ 990
Дано:
Мулььи N=16;120
Пульти N=32;96
Найти i
Решение. N=2i
1)16=2i, i=4(бит) на 1 символ в племени Мульти
2) 32=2i=i=5(бит) на 1 символов в племени Пульти
3) 120*4=480(бит) сообщение племени Мульти
4)96*5=480(бит) сообщение племени Пульти
Ответ: они равны)
Это первая часть. Надеюст разберете мой корявый почерк