begin
3.Step(3).TakeWhile(t -> t <= 100).Sum.Println
end.
2 варианта
var s,i: integer;
s:=0;
i:=3;
while (i<100) do
s:=s+i;
inc(i,3);
end;
writeln('Сумма чисел, которые делятся на 3: ',s);
readln;
for i:=1 to 100 do if (i mod 3 = 0) then s:=s+i;
Выбирайте на свой вкус
begin
3.Step(3).TakeWhile(t -> t <= 100).Sum.Println
end.
16832 варианта
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.
Выбирайте на свой вкус