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

Question

Информатика

Бажен

10 августа, 21:35

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

+2

Ответы (2)

Знаете ответ на вопрос?

Веня · Answer 1

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.

Анастасий · Answer 2

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.