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

Question

Информатика

Милютина

1 мая, 20:03

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

+3

Ответы (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.