Найти сумму чисел, кратных 3 от 1 до 100.
ПРОГРАММА ПАСКАЛЬ ABC.

beginsum=0;for i:=1 to 100 dobeginif i mod 3=0 thensum:=sum+i;end;end.

var  n,s:integer;begin  n:=3; s:=0;  while n<=100 do begin    s:=s+n;    n:=n+3    end;  Writeln('S=',s)end.РезультатS=1683Первое число, кратное 3 - это само число 3. А дальше просто по 3 прибавляем...