Три вопроса. И как мне кажется минимальное а не максимальное. Сначала мы уточняем про интервал из 4 чисел (половину берём), потом из двух, потом из 2 оставшихся угадываем нужное
Var a,b:integer;
Begin
randomize;
a:=random(80001)-40000;
b:=random(80001)-40000;
if a>b then writeln(b,', ',a)
else writeln(a,', ',b);
End.
<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(Range(1,99,2).Select(x->x*x).Sum)
end.
<u>Результат</u>
166650
105(10) = 1101001(2)
358(10) = 101100110(2)
377(10)<span> = 101111001(</span><span>2)</span>