• Приведен фрагмент программы на паскале:
    readln(a);
    b:=30;
    a=-a-3*b;
    if a<b then c:=b+45
    else
    c:=b-50; 
    При каком наибольшем числе а после выполнения программы с будет равно -20?

    С решением, пожалуйста

Ответы 1

  • код программыvar    a: integer;function c(a: integer): integer;var    b: integer;begin    b := 30;    a := -a - 3 * b;        if a < b then         c := b + 45    else        c := b - 50;end;begin    for a := 1000 downto -1000 do        if c(a) = -20 then begin            writeln('a=', a, ' c(a)=', c(a));            break;        end;end.Выводa=-120 c(a)=-20Аналитическое решение. Видно что c:=b - 50 = 30 - 50 = -20 при a>=b-a-3*b>=b -a-3*30>=30-a-90>=30-a>=120a<=-120
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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