Question

Дана последовательность чисел, завершающихся 0. Найти сумму кратных чисел, кратных 4. (Паскаль)

Answer 1

begin

ReadSeqIntegerWhile(t->t<>0).Where(t->t mod 4 =0).Sum.Println

end.

Answer 2

Для нахождения суммы кратных 4 чисел в данной последовательности, нужно пройтись по всем элементам последовательности и прибавить к сумме только те числа, которые кратны 4.

Ниже представлена программа на языке Паскаль, которая решает данную задачу:

pascalCopy code
program SumOfMultiplesOfFour;

var
  num, sum: integer;

begin
  sum := 0;
  repeat
    write('Введите число: ');
    readln(num);
    
    if (num mod 4 = 0) then
      sum := sum + num;
  until (num = 0);
  
  writeln('Сумма кратных 4 чисел: ', sum);
end.

Программа будет запрашивать ввод чисел до тех пор, пока не будет введен 0 (завершающий элемент последовательности). Если введенное число кратно 4, оно будет добавлено к общей сумме. В конце программа выведет сумму кратных 4 чисел.