Question

У тараканов и пауков вместе 74 лапки. Сколько могло быть тараканов и пауков, если у таракана - 6 лапок, а у паука – 8.
ПАСКАЛЬ, через while пожалуйста

Answer 1

begin

 var Пауков := 0;

 while Пауков < 9 do

 begin  

   if (37 - 4 * Пауков) mod 3 = 0 then

   begin

     var Тараканов := (37 - 4 * Пауков) div 3;

     Println('Пауков -', Пауков, '  Тараканов - ', Тараканов)

   end;

   Inc(Пауков)

 end;

end.