• Здравствуйте.
    Помогите пожалуйста решить задачи - их нужно написать через PascalABC (или PascalABCNet), Dev C++ и Visual Basic 6.0. Нужно очень срочно! Или хоть что-нибудь из этого.

    question img

Ответы 5

  • Это на c++, еще не компилировал, но ошибок нет.
  • Накидал первую (только не на паскале, а на сиське), цифра результата при 800 сходится. Вторая задача как-то ускользает от понимания условия.
    • Автор:

      dracula
    • 6 лет назад
    • 0
  • Спасибо большое вам! Ваша помощь неоценима! :)
  • Спасибо!)
  • 1.var p,p2,m:real;beginwrite('p = '); readln(p);p2:=p*p;if (p>780)and(p<845) then m:=sqr(0.456*p2/(8.33*1e5-p2)) else if (p>=845)and(p<924)        then m:=sqr(0.658*p2/(8.56*1e5-p2))       else m:=0;if m<>0 then writeln('M = ',m)        else writeln('Ошибка ввода');end.Пример:p = 800M = 2.28652005691428
    • Автор:

      foxy9heb
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years