Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.