Помогите пожалуйста!!!
Ежик весит N граммов, заяц - M граммов. Сколько требуется пар этих животных, чтобы перевесить слона весом S тонн ?
написать на скрипте и бэйсике
можно написать на паскале, я перепишу

Спасибо большое!

var N, M, S : integer; res : real;begin write('Вес ёжика: '); readln(N); write('Вес зайца: '); readln(M); write('Вес слона: '); readln(S); res := S * 1000 * 1000 / (N + M); res := trunc(res) + ord(frac(res) <> 0);  //Округляем до большего целого writeln('Нужно пар: ', res);end.