• Помогите пожалуйста, очень срочно, молю, написать код

    question img

Ответы 1

  • PascalABC.NET 3.4.2, сборка 1880 от 18.11.2018Внимание! Если программа не работает, обновите версию!№1

    function A(q, E, d: real) := q * E * d;

    begin

     var s := 0.0;

     loop 3 do

     begin

       var (q, E, d) := ReadReal3('q, E, d = ');

       s += A(q, E, d)

     end;

     Print('Средняя работа равна', s / 3:0:4)

    end.

    №2

    procedure Cnt(a:array of integer);

    begin

     a.TakeWhile(t->t>=0).Where(t->t>0).Count.Println

    end;

    begin

     var x:=ArrRandom(16,-20,25);

     x.Println;

     Cnt(x);

     var y:=ArrRandom(20,-34,27);

     y.Println;

     Cnt(y);

     var z:=ArrRandom(25,-50,50);

     z.Println;

     Cnt(z);

    end.

    • Автор:

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

Войти через Google

или

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

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

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