Question

составьте алгоритм и программу на паскале, на нахождение суммы натуральных чисел, кратных 12, в диапазоне от 1 до 70

Answer 1

var i, S:integer;
Begin
S:=0;
for i:=1 to 70 do
if (i mod 12=0) then
S:=S+i;
Write('S=', S);
End.

Answer 2

2 3 4 5 6 7 8 9 const d=3; var x, y: Integer; begin   Write('x y: '); ReadLn(x,y);   x:=(x div d+1)*d;   while x<y do begin     Write(' ',x); Inc(x,d);   end; WriteLn; end.