Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Дано 20 целых чисел: 13,14,15,...32. Напишите программу для вычисления и вывода на экран суммы только тех чисел, которые делятся без остатка на 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.