Найди сумму положительных нечётных чисел из промежутка от a до b , делящихся без остатка...

Question

Найди сумму положительных нечётных чисел из промежутка от a до b , делящихся без остатка на 3

Answer 1

var

  a, b, i, Summ:integer;

begin

  Summ := 0;

  write('a = '); readln(a);

  write('b = '); readln(b);

  for i := a to b do

    if (i > 0) and (i mod 3 = 0) then

      inc(Summ, i);

  writeln('Summ = ', Summ);

  readln;

end.

 

 

Answer 2

Program prom;
Var a, b, i, s: integer;
Begin
Readln (a, b);
For i:= a to b do
If (i > 0) and (i mod 3 = 0) and (i mod 2 = 1) then
s:=s+i;
Writeln (s);
Readln;
End.