Регистрация
паксуха
29.01.2022 06:57
Информатика
Есть ответ 👍

Напишите программу, которая в последовательности натуралных чисел определяет сумму чисел, кратных 7. Программа получает на вход кол-во чисел в последовательности, а затем сами числа. В послледовательности всегда имеется число, кратное 7. Программа должна вывести одно число - сумму чисел , кратных 7.

172
486
Посмотреть ответы 2

Ответы на вопрос:

svyatkin111
svyatkin111
4,4(39 оценок)

var n, i, sum, k:Integer;

begin

sum:=0;

readln(n);

for i := 1 to n do

begin

 readln(k);

 if (k mod 7 = 0)then begin

  sum:=sum+k;

 end;

end;  

writeln(sum);

end.

lol1025
lol1025
4,5(49 оценок)
18 | 36 | 0 | -3 | 4 | 15 | -18 - 1 элемент в массиве с индексом 0 (потому что это первый элемент в массиве). 36 - 2 элемент в массиве с индексом 1 (потому что это второй элемент в массиве). 0 - 3 элемент в массиве с индексом 2 (потому что это третий элемент в массиве). -3 - 4 элемент в массиве с индексом 3 (потому что это четвертый элемент в массиве). 4 - 5 элемент в массиве с индексом 4 (потому что это пятый элемент в массиве). 15 - 6 элемент в массиве с индексом 5 (потому что это шестой элемент в массиве).

Популярно: Информатика