Интернет!!!!!!!!!!!!!!!!!!!!!!!!!
//PascalABC.NET 3.1 сборка 1219
begin
var a := ArrRandomInteger(ReadInteger('n ='), 760, 780);
a.Println;
Writeln('Max = ', a.Max, ' №', a.IndexMax + 1);
Writeln('Min = ', a.Min, ' №', a.IndexMin + 1);
Writeln('Avg = ', a.Average);
var d := ReadInteger('d =');
Writeln('Count(x > ', d, ') = ', a.Where(x -> x > d).Count);
a.Sort;
a.Println;
end.
Var x,y:real;
Begin
Write('x = ');ReadLn(x);
Write('y = ');ReadLn(y);
if 5*x*x+1=y then WriteLn('Да, может')
else WriteLn('Нет не может');
End.
Если код делится на номер его дома то возможны значения 131, 262, 393, 524, 655, 786 и 917. Только 524 в двоичной СС в конце имеет два нуля следовательно 524 код от дома.
Ответ: 524
:)
1 Пойти в лес.
2 Найти гриб
3 Определить породу
4 Положить в лукошко