нужно назвать термины балла​

var

  s: string;

  i: longint;

begin

  readln(s);

for i: =1 to length(s) div 2 do write(s[i]);

end.

program ssd;

  uses crt,graph;

  var   a,a1,a2,a3: integer;

  begin

  clrscr;

  writeln('введите трехзначное число');

  readln(a);

  a1: = a mod 10;

  a2: =(a div 10) mod 10;

  a3: = a div 100;

  writeln('      ',a1,a2,a3);

  readkey;

end.

2 единицы в двоичной записи числа 1025

10000000001

нам дано, что на борту есть кок и капитан, т.е:

1) 15 голов - 1 кок - 1 капитан = 15-2= 13 - это количество матросов и котов вместе

дальше нам сказано, что всего лап и ног - 41:

2) от общего количества 41 - 1 нога капитана (т.к. было сказано, что капитан одноногий) - 2 ноги кока = 41 - 3 = 38 ног матросов и лап котов.

а дальше я сделала методом подбора, и у меня получилось 6 котов, 7 матросов, ну и кок с капитаном.

проверка:

  6*4 + 7*2 +1 + 2 = 41 ног и лап

6 + 7 + 1 + 1 = 15 голов