Если число должно делиться одновременно на 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.
//Версия 3.3, сборка 1611
begin
write('sum=',range(50,500).Where(x->(x mod 7=0) and (x mod 13=0)).Sum());
end.
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