Ребят выполнить работу, надо сеть 10.1.0.0/16 разделить на подсети, оставляю исходный файл, буду очень благодарен если сделаете. Мой вариант 1.

ответ во вложении

Объяснение:

1.

var n: integer; begin  cls;   for n: =1 to 10 do begin    write('n=',sqr(n)+5,' ');   end; end.

решить на паскале?

грубо и сердито:

var c: longint;

begin

  read(c);

  c: =c mod 10;

  c: =sqr(c);

  writeln(c);

end.