Question

вычислить сумму чисел от 1 до 100 которые делятся на 3
написать программу для вычисления(паскаль)

Answer 1

2 варианта

var s,i: integer;

begin

s:=0;

i:=3;

while (i<100) do

begin

s:=s+i;

inc(i,3);

end;

writeln('Сумма чисел, которые делятся на 3: ',s);

readln;

end.

___________________________________________________

var s,i: integer;

begin

s:=0;

for i:=1 to 100 do if (i mod 3 = 0) then s:=s+i;

writeln('Сумма чисел, которые делятся на 3: ',s);

readln;

end.

Выбирайте на свой вкус

Answer 2

PascalABC.NET 3.4.2, сборка 1847 от 28.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 3.Step(3).TakeWhile(t -> t <= 100).Sum.Println

end.

1683