Помогите, срочно!!! Напишите программу, которая в последовательности натуральных чисел...

Question

Помогите, срочно!!! Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 4 и НЕ оканчивающихся на 8. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 1000. Введенные числа не превышают 30 000. Программа должна вывести одно число - сумму чисел, кратных 4 и НЕ оканчивающихся на 8.

Comments

begin var n := ReadInteger(); var SQ := ReadSeqInteger(n); SQ.Where(x->(x mod 4 = 0) and (x mod 10 <> 8)).Sum.Println;end.

---

Так пойдет?

---

Как-то по другому решено

---

Но все равно спасибо

---

А как надо?

---

Первоначально: Var: a, d, n: integer; begin writeln ('введите кол-во чисел'); и вот дальше не знаю

---

var n, a, Sum, i: integer;begin Read(n); Sum := 0; for i := 1 to n do begin Read(a); if (a mod 4 = 0) and (a mod 10 <> 8) then Sum += a end; Write(Sum)end.

---

Ну попробуйте так.

---

Хорошо, спасибо большое

---

Перед Read(n); Вставьте ваше Write('Введите кол-во чисел: ');

Answer 1

На фото программа написанная на языке C++.

Программа в текстовом варианте:

#include

using namespace std;

int main() {

  int n,a,sum = 0;

  cout << "Введите кол-во чисел:" << endl;</p>

  cin >> n;

  cout << endl <<"Введите сами числа:" << endl;</p>

  for(;n > 0;--n){//Это всё тот же цикл с счётчиком, однако переменная здесь не задаётся

      cin >> a;

      if(a%4 == 0 && a%10 != 8 )

          sum+=a;

  }

  cout << "Сумма: " << sum;</p>

  return 0;

}

---