Поделитесь своими знаниями, ответьте на вопрос:
На берегу реки сидят жуки и пауки, у которых вместе n ног. у каждого жука по 6 ног, у паука по 8 ног. известно, что ног у всех жуков в k раз меньше, чем у всех пауков.напишите программу, которая определяет, сколько всего жуков и пауков сидит на берегу.это все в pascale.
var
N : uint64;
K : real;
begin
write ('Введите кол-во ног: ');
readln (n);
write ('Введите отношение ног жуков к паукам: ');
readln (k);
if trunc (n/(k+1)) <> n/(k+1) then write ('Неверное условие!')
else
if trunc (n/(k+1)) mod 8 <> 0 then write ('Неверное условие!')
else write ('Жуков: ', n/(k+1)*k/6, ', пауков: ', n/(k+1)/8);
end.