Эссе на тему надежность пароля

без остатка нет

25: 2=12+1 клетка в остатке

program risovalka;

  uses  crt,graphabc;

    var  xc,yc,r1,r2,rc,ro,n,i,x,y: integer;

  a: real;

    begin  repeatwrite('ykashi shislo otverstii ot 5 do 10 n=');

      read(n);

    until  n  in  [5..10];

    clrscr; hidecursor;

    xc: =windowwidth  div  2;

    yc: =windowheight  div  2;

    r1: =40;

    r2: =120;

    rc: =100; ro: =30;

    a: =2*pi/n;

    circle(xc,yc,r2);

    circle(xc,yc,r1);

      for  i: =1  to  n  do    begin    x: =xc+round(rc*cos(a*i));

      y: =yc-round(rc*sin(a*i));

      circle(x,y,ro);

        end.

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

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 голов

var s,i,n,m : longint;

begin

  readln(m,n);

  if m> n then

  begin

      s: =m;

      m: =n;

      n: =s

  end;

  s: =0;

  for i: = m to n do if i mod 12=0 then s: =s+i;

  writeln(s);

end.