Предмет: Информатика, автор: katme14

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


iolandavalerypad353: begin
var n := ReadInteger();
var SQ := ReadSeqInteger(n);
SQ.Where(x->(x mod 4 = 0) and (x mod 10 <> 8)).Sum.Println;
end.
iolandavalerypad353: Так пойдет?
katme14: Как-то по другому решено
katme14: Но все равно спасибо
iolandavalerypad353: А как надо?
katme14: Первоначально: Var: a, d, n: integer; begin writeln ('введите кол-во чисел'); и вот дальше не знаю
iolandavalerypad353: 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.
iolandavalerypad353: Ну попробуйте так.
katme14: Хорошо, спасибо большое
iolandavalerypad353: Перед Read(n); Вставьте ваше Write('Введите кол-во чисел: ');

Ответы

Автор ответа: anywaythanks
1

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

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

#include <iostream>

using namespace std;

int main() {

  int n,a,sum = 0;

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

  cin >> n;

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

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

      cin >> a;

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

          sum+=a;

  }

  cout << "Сумма: " << sum;

  return 0;

}

Приложения:
Похожие вопросы
Предмет: Английский язык, автор: welterwelter704
Предмет: Математика, автор: дук2