Помогите ПОЖАЛУЙСТА очень очень срочно 1) Даны целые числа a, b, c, d. Сколько среди них...

Question

Помогите ПОЖАЛУЙСТА очень очень срочно

1) Даны целые числа a, b, c, d. Сколько среди них отрицательных и оканчивающихся на 7.

2) Даны целые числа a, b, c, d. Найдите сумму тех из них, которые кратны 4, больше -50 и не
превышают 70.

3) Даны целые числа a, b, c, d. Найдите сумму тех из них, которые кратны 4 и по модулю не превышают
100.

Паскаль

Comments

??

---

Да

Answer 1

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('k=',
    ReadSeqInteger('a,b,c,d=',4).Where(x->(x<0) and (-x mod 10=7)).Count);<br>  Writeln('S=',ReadSeqInteger('a,b,c,d=',4).
      Where(x->(x>-50) and (x <=70) and (x mod 4=0)).Sum);<br>  Writeln('S=',ReadSeqInteger('a,b,c,d=',4).
      Where(x->(abs(x)<=100) and (x mod 4=0)).Sum)<br>end.

Каждый оператор Writeln решает одну из задач.
Если надо все отдельно - просто удаляйте два остальных оператора.

Comments

Спасибооо большое