1. Составить алгоритм, вычисления суммы нечетных чисел, от 100 до 200 2. Составить алгоритм, вычисления суммы чисел, кратных 7, от 300 до 500

3. Составить алгоритм, вычисления произведения чисел, от 1 до 10​

2)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 прибавляем

Объяснение: