annaobryv861
02.03.2023 15:47

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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Дако031204
10.10.2020 19:37

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.

0,0(0 оценок)
Ответ:
nukita200230
10.10.2020 19:37

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

begin

 var n := ReadInteger;

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

end.


Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 6
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота