Вычислить сумму натуральных чисел,кратных 3,меньшую 100.
Паскаль
Answers & Comments
AFkristina
Минимальное число, кратное 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.
Answers & Comments
// 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