Question

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

Answer 1

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.