Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 6. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число — сумму чисел, кратных 6.
Язык Pascal

Ответ

Автор - polinapodozerova

program pr1;

var n, i, s: integer;

begin

readln(n);

s:=0;

for i:=1 to n do

if i mod 6 = 0 then

s:= s+1;

writeln(s);

end.

Автор - BobbyFresnel

===== PascalABC.NET =====

begin

var n := ReadInteger;

ReadSeqInteger(n).Where(p -> p mod 6 = 0).Sum.Println

end.

Предыдущий вопрос Следующий вопрос

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.