ответ: такая же задача уже была сегодня, поэтому дублирую свой ответ еще раз:
program TorLoki;
var
n, m: Integer;
T, L: Double;
begin
Write ('Введите N и M: ');
ReadLn (n, m);
L := n / (m - 1);
T := L + n;
WriteLn ('Сила Тора = ', T :10 :6);
WriteLn ('Сила Локи = ', L :10 :6);
ReadLn;
end.
Объяснение:
нужно решить систему уравнений:
T = L + N
T = L * M
получается
L * M - L = N
L (M - 1) = N
L = N / (M - 1)
это сила Локи, а для Тора:
Т = L + N или T = L * M можно и так и так
