На берегу реки сидят жуки и пауки, у которых вместе N ног. У каждого жука по 6 ног, у паука по 8 ног. Известно, что ног у всех жуков в K раз меньше, чем у всех пауков. Напишите программу на Pascal, которая определяет, сколько всего жуков и пауков сидит на берегу.

Пусть \(b\) — количество жуков, \(p\) — количество пауков. Тогда:

\[6b+8p=N\]

По условию ног у жуков в \(K\) раз меньше, чем у пауков:

\[8p=K\cdot 6b\]

Программа на Pascal:

program BeetlesAndSpiders;
var
N, K: integer;
b, p: integer;
begin
readln(N, K);
for b := 0 to N div 6 do
for p := 0 to N div 8 do
if (6*b + 8*p = N) and (8*p = K*6*b) then
begin
writeln(b, ' ', p);
halt;
end;
end.

Программа перебирает возможное число жуков и пауков, а затем проверяет оба условия задачи.

0 0 Пожаловаться