Горит!
Реализация в базисе ИЛИ – НЕ: Y = (X1&X2) V(X3&X4

допустим, что каждой голове соответствует 2 ноги, тогда 15*2=30 ног, но так как у капитана одна нога, то 30-1=29 ног. теперьнайдем оставшиеся кошачьи лапы 41-29=12 лап,

12/2=6 котов

1.

program xxx;

var i, n : integer

begin

  writeln ('введите число n=');

  readln (n);

  writeln ('делители числа: ');

  for i: = 1 to n do

      if n mod i = 0 then writeln (i);

  readln

end.

папирусы хранили в виде свитков, которые сворачивали в длинную папирусную ленту. эту ленту склеивали  из отдельных листов и заворачивали в трубку. именно в таких свитках дошли до нас древние тексты, хотя сохранились они хуже, чем письмена на глиняных табличках.

var

a: [1..100] array of integer;

i,n,p: integer;

begin

readln(n);

for i: =1 to n do

begin

readln(a[i]);

p: =2;

while (p*p< =a[i]) do

begin

if p*p=a[i] then writeln (a[i],' полный квадрат')

p: =p+1;

end;

end;

end.