Question

Вычислить сумму натуральных чисел,кратных 3,меньшую 100.


Паскаль

Answer 1

Минимальное число, кратное 3 - это само число 3. А дальше увеличиваем числа на 3...

// PascalABC.NET 3.2, сборка 1381 от 04.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=3;
  var s:=0;
  repeat
    s+=n;
    if s>=100 then begin s-=n; break end
    else
      if n<>3 then Write('+',n) else Write(n);
    n+=3
  until false;
  Writeln('=',s)
end.

Результат
3+6+9+12+15+18+21=84