Помогите пожалуйста!!!
Ежик весит 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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
