Помогите ПОЖАЛУЙСТА очень очень срочно 1) Даны целые числа a, b, c, d. Сколько среди них отрицательных и оканчивающихся на 7. 2) Даны целые числа a, b, c, d. Найдите сумму тех из них, которые кратны 4, больше -50 и не превышают 70. 3) Даны целые числа a, b, c, d. Найдите сумму тех из них, которые кратны 4 и по модулю не превышают 100. Паскаль

Вопрос школьника по предмету Информатика

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

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

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

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

Паскаль

Ответ учителя по предмету Информатика

// 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);

  Writeln(‘S=’,ReadSeqInteger(‘a,b,c,d=’,4).

      Where(x->(x>-50) and (x <=70) and (x mod 4=0)).Sum);

  Writeln(‘S=’,ReadSeqInteger(‘a,b,c,d=’,4).

      Where(x->(abs(x)<=100) and (x mod 4=0)).Sum)

end.

Каждый оператор Writeln решает одну из задач.

Если надо все отдельно — просто удаляйте два остальных оператора.