• Помогите написать программу в паскале.
    №1.
    а := 40
    в := 10
    в := -а/2*в
    если а < в
    то с := в-а
    иначе с := а-2*в

    №2.
    а := 5
    а := а+6
    в := -а
    с := а-2*в

Ответы 1

  • Задача №1var a,b,c:real;begina:=40;b:= 10;b:= a/2 *b;if a < b then c:= b -aelsec:= a - 2*b;writeln('c =', c);end.Задача №2var a,b,c:integer;begina:=5;a:= a +6;b:= -a;c:= a- 2*b;writeln('c =', c);end.
    • Автор:

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

Войти через Google

или

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

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

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