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

2

Ответы и объяснения

  • Tlalok
  • почетный грамотей
2013-03-09T19:24:33+04:00

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.

 

 

  • Listr
  • середнячок
2013-03-09T20:44:55+04:00
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.