Question

Составить программу вычисления произведения чисел от 1 до 500 кратных 13

Answer 1

var sum,i:integer;    beginfor i:=1 to 500 do    if (i mod 13 =0) then sum:=sum+i;writeln(sum);end.