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

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

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

begin

 3.Step(3).TakeWhile(t -gt; t lt;= 100).Sum.Println

end.

1683

2 варианта

var s,i: integer;

begin

s:=0;

i:=3;

while (ilt;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.

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