Предмет: Информатика,
автор: roadtimeAlex0777
Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 6 и оканчивающихся на 8. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 6 и оканчивающееся на 8. Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести одно число: сумму чисел, кратных 6 и оканчивающихся на 8.
Ответы
Автор ответа:
0
//PascalABC.NET версия 3.3.1590 от 03.12.2017
//Если программа не запускается, то обновите версию
begin
var a:=ReadArrInteger(ReadInteger('n='));
Writeln(a.Where(x->(x mod 10=8)and (x mod 6=0)).Sum);
end.
//Если программа не запускается, то обновите версию
begin
var a:=ReadArrInteger(ReadInteger('n='));
Writeln(a.Where(x->(x mod 10=8)and (x mod 6=0)).Sum);
end.
Интересные вопросы
Предмет: Геометрия,
автор: selinnikita012
Предмет: Русский язык,
автор: Аноним
Предмет: Русский язык,
автор: aliyarparkhat953
Предмет: Математика,
автор: Asemoka001