Дано 20 целых чисел: 13,14,. напишите программу для вычисления и вывода на экран суммы только тех чисел, которые делятся без остатка на 8( кратны восьми).
//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.
begin
var s:=0;
for var i:=13 to 32 do if i mod 8 =0 then s:=s+i;
println('Сумма кратных 8:',s);
end.