Question

ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!

Answer 1

Ответ:

var

 number: integer;

begin

 var size := readinteger;

 var amount := 0;

 for var i := 1 to size do

 begin

   number := readinteger;

   if (number mod 14 = 0) then

     inc(amount, number);

 end;

 write(amount);

end.

Объяснение:

var

 number: integer;  // Целочисленная переменная, хранящая вводимые с клавиатуры числа

begin  // Начало программы

 var size := readinteger;  // Считываем размер последовательности с клавиатуры

 var amount := 0;  // Переменная, хранящая сумму

 for var i := 1 to size do  // Идём от 1 до размера последовательности

 begin  // Начало цикла

   number := readinteger;  // Считываем число последовательности с клавиатуры

   if (number mod 14 = 0) then  // Если число делится на 14 без остатка, тогда

     inc(amount, number);  // amount := amount + number // Прибавляем значение number к переменной, хранящей сумму

 end;  // Конец цикла

 write(amount);  // Выводим ответ

end. // Конец программы