Question

Дано 20 целых чисел: 13,14,15,...32. Напишите программу для вычисления и вывода на экран суммы только тех чисел, которые делятся без остатка на 8( кратны восьми).

Answer 1

//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
begin
  var s:=0;
  for var i:=13 to 32 do if i mod 8 =0 then s:=s+i;   
  println('Сумма кратных 8:',s);
end.