Предмет: Информатика,
автор: katme14
Помогите, срочно!!!
Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 4 и НЕ оканчивающихся на 8. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 1000. Введенные числа не превышают 30 000. Программа должна вывести одно число - сумму чисел, кратных 4 и НЕ оканчивающихся на 8.
Так пойдет?
Как-то по другому решено
Но все равно спасибо
А как надо?
Первоначально: 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.
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('Введите кол-во чисел: ');
Ответы
Автор ответа:
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;
}
Приложения:
Похожие вопросы
Предмет: История,
автор: cerka08
Предмет: Английский язык,
автор: welterwelter704
Предмет: Английский язык,
автор: Polina3p9
Предмет: Литература,
автор: RachelBLACK
Предмет: Математика,
автор: дук2
var n := ReadInteger();
var SQ := ReadSeqInteger(n);
SQ.Where(x->(x mod 4 = 0) and (x mod 10 <> 8)).Sum.Println;
end.