Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 6. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число — сумму чисел, кратных 6.
Язык Pascal
Ответы
Ответ дал:
2
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:
Все замечательно, только требовалось найти сумму части введенных чисел. А еще, Вы пропустили ввод самих чисел. В общем, увы, получилась очень странная программа.
Ответ дал:
0
===== PascalABC.NET =====
begin
var n := ReadInteger;
ReadSeqInteger(n).Where(p -> p mod 6 = 0).Sum.Println
end.
Приложения:
Вас заинтересует
2 месяца назад
4 месяца назад
4 месяца назад
1 год назад