Question

4. Определите и выведите на экран сумму чисел от 50 до 500, которые делятся на 7 и 13 одновременно.

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write('sum=',range(50,500).Where(x->(x mod 7=0) and (x mod 13=0)).Sum());
end.

Answer 2

Если число должно делиться одновременно на 7 и 13, то оно должно делиться на произведение этих чисел, т.е. на 91. Первым таким числом будет 91 и с него нужно начинать перебор. На самом деле понятно, что следующее число будет равно 91+91, т.е. 91×2, за ним последует 91×3... и сумму легко найти без компьютера и программы. Что в очередной раз показывает, насколько составители заданий бездумно относятся к своему творчеству. Но... условие есть условие. Начнем с 91 и будем последовательно перебирать ВСЕ числа до 500.

var
  i,s:integer;

begin
  s:=0;
  for i:=91 to 500 do
    if i mod 91 = 0 then s:=s+i;
  Writeln(s)
end.

Результат
1365