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

Question

Информатика

Доримедонт

13 января, 12:55

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

+1

Ответы (2)

Знаете ответ?

Гонеста · 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.