Составьте алгоритм и программу ** паскале, ** нахождение суммы натуральных чисел, кратных...

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.